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OSTACK 
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t for registers 

t for TSX-Plus addresses 

t for miscellaneous fields 

t for line status tables 

t for device handler status 

t for job context information 



- Dump entry point 
Display date and time infor 

- Divide 16-bit into 32-bit 

- Display error status infor 

- Display contents of regist 

- Display TSX. SAV module add 

- TSX-Plus overlay region 

- Display contents of stack 

•• Display misc system values 

- Display info about current 

- Display line definition ta 

- Display device definition 

- Display fork block informa 

- Display job contextinf orma 

- Output a list of informati 

- Display stack contents 

- Output tables of informati 

- Output an asciz string 

- Convert and print a value 

- Convert and print a RAD50 

- Blank pad output stream 

- Output an ascii character 
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000000 015430 



TITLE 


TSDUMP 


EIMABL 


1 /* 
WW 


DSABL 


GBL 


ENABL 


AMA 


CSECT 


TSDUMP 


RAD50 


/DMP/ 



— TSX-Plus crash dump 



; System overlay id 



This module implements the TSX-Plus crash dump facility. 



Copyright (c) 1985. 
S&H Computer Systems. Inc. 
Nashville* Tennessee USA 
All rights reserved. 



The crash dump facility provides diagnostic information when 
a fatal system error occurs. It is entered with interrupts 
prior initialization of several stored values. 
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GLOBAL Definitions. 
. GLOBL DODUMP 



GLOBAL References. 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



SS, SSEND, INTSTK, INTSND, JSTK, JSTKND 

VDMTCR, PSW 

DMPTXT. DMPOVL, DMPHND, DIEARG, DIEPC, DIESP 

TSGEN, TSTIO, TSEXEC, TSEMT, TSINIT 

TRPAR5, KPAR6, VPAR5, VPAR6 

CORUSR, NUMDEV, MAXDEV 

NPL, NSL, NDL, NIOL, NLINES, TNHL 



SYSDAT 

5YTIMH, SYTIML 

TK1SEC 

OVRADD 

*INCOR 

FQ*LNK 

LCXPAR 

RT11EX 



System date (TSGEN) 

System time <TSGEN) 

Number of ticks per second 

Address of overlay tables 

LSW in memory flag 

Link word to next fork block 

PAR relocation base of job context 

RT-11 function bias 
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MACRO i/efinitions. 



DISABLE macro used to disable all interrupts. 

j DISABLE INTERRUPTS 



. MACRO DISABL 
BIS #340, @#PSW 
. ENDM DISABL 



STKDEF macro used to define a stack where: 

BASE = base of stack 

TOP = top of stack 

LENGTH = length (in words) of stack 

.MACRO STKDEF top, base, length 
base: ; Base address of stack 

. BLKW length ; Allocate stack space 

top: ; Top address of stack 

. ENDM STKDEF 



PRINT macro used to define a print string where 
stradr = address of asciz string to print 



. MACRO 


PRINT ?strsdr 


. NARG 


ARG 


. IF 


NE, ARG 


MOV 


stradr, Rl 


. ENDC 


; NE, ARG 


CALL 


OUTSTR 


. ENDM 


PRINT 



i Determine number of arguments 
;Only if argument exists 
; Point to string address 

; Display asciz string 



TTYOUT macro used to output a single character where 
char = character to output 



.MACRO TTYOUT ?char 

. NARG ARG 

.IF NE, ARG 

MOVB char,rO 

. ENDC } NE ARG 

CALL OUTCHR 

. ENDM TTYOUT 



; Determine number of arguments 
iOnly if argument exists 
; Get output character 

; Display ascii character 
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TBEG macro used to define a table entry print field where: 



LABEL 

NAME 

R OWN AM 

ATTR 

SINDX 

EINDX 

. MACRO 
. NARG 
. PSECT 

. PSECT 
. PSECT 



PSECT 



PSECT 



PSECT 



PSECT 
ENDM 



address label of table 

table title 

row name label 

index number attribute 

starting index 

ending index 



TBEG 
ARGS 
DUMP 
label 
TSDUMP 
STRING 
STRADD 
. ASC 1 1 
. BYTE 
DUMP 
. WORD 
. IF 



. ENDC 

TENABL 

STRING 

STRADD 

. ASC 1 1 

. BYTE 

DUMP 

. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
TSDUMP 
TBEG 



label; narne^ 



/name/' 


STRADD 

EG, ARGS-2 

TENABL = O 

. MEXIT 

; EG, ARGS-2 

~ 1 



/roumam/ 
200 



roumam, a 
Numbe 
Def in 
Def in 
Resto 
Def in 
Point 
Store 
Termi 
Def in 
Store 
Only 
Flag 
Termi 



STRADD 

attr 

STRADD 

sindx 

eindx 
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nts to macro call 
ram section 
address 

rogram section 
ram section 
rting address 
label 
iz string 
ram section 
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ts passed 
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expansion 



Flag table definition in progress 
Define STRING program section 
Point to the starting address 
Store the ascii label 
Terminate as asciz string 
Define DUMP program section 

> Store the string address 

; Store table attributes 

; Store the string address 

; Store starting table index 

; Store ending table index 

; Restore TSDUMP program section 
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'VAL macro used to define a single print field where: 
NAME = ascii string title 

LABEL = address label containing print value 
ATTR » field attributes 
SINX = starting table index 
EINX = ending table index 

Format attributes: 

*RJUST = (bit 14) right justify (default is left) 

$ZRPAD = (bit 13) zero pad (default is blank) 

Storage attributes: 

*BYTE = (bit 0) storage requirement (default is word) 

*DEC = (bit 2) decimal representation (default is octal) 

*RAD50 = (bit 3) rad50 representation 



Definition of field attribute bit definitions. 



040000 
020000 

000001 
000002 
000004 



*RJUST = 40000 
*ZRPAD = 20000 
Storage attributes. 
*BYTE = 1 
*DEC = 2 
*RAD50 = 4 



MACRO 
PSECT 



PSECT 



PSECT 
ENDM 



PVAL name> 

STRING 

STRADD = 

. ASCII 

. BYTE 

DUMP 

. WORD 

. WORD 

. GLOBL 

. WORD 

. IF 

. WORD 

. WORD 

. ENDC 

TSDUMP 

PVAL 



label* attr> 



/name/ 
200 

STRADD 

attr 

label 

label 

NE> tenabl 

sindx 

eind x 

; NE/ tenabl 



; Right justify 
; Zero pad 

iByte storage cell 

> Decimal numeric representation 

;Rad50 representation 

sindx* eindx 

• Define STRING program section 

i Point to the starting address 

i Store the ascii label 

; Terminate as asciz string 

;Define DUMP program section 

; Store the string address 

; Store field attributes 

; Declare variable as global 

i Store location of value field 

; Has table definition been enabled? 

; Store starting table index 

; Store ending table index 

.Restore TSDUMP program section 
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PVAL and PRVAL are identical with the exception that PVAL 
declares the entity as GLOBL and PRVAL does not. 

attr* sindxi eindx 

Define STRING program section 

Point to the starting address 

Store the ascii label 

Terminate as asciz string 

Define DUMP program section 

Store the string address 

Store field attributes 

Store location of value field 

Has table definition been enabled? 

Store starting table index 

Store ending table index 

; Restore TSDUMP program section 



MACRO 


PRVAL name, label, a 


PSECT 


STRING 






STRADD 


= 




. ASCII 


/name/ 




. BYTE 


200 


PSECT 


DUMP 






. WORD 


STRADD 




. WORD 


attr 




. WORD 


label 




. IF 


NE> tenabl 




. WORD 


sindx 




. WORD 


eind x 




. ENDC 


> NE, tenabl 


PSECT 


TSDUMP 




ENDM 


PRVAL 
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' C.ND fll3C TO USSu to define the end Of a table Or" list. 



f 



t 



MACRO 


TEND 


PSECT 


DUMP 




. WORD 


PSECT 


TSDUMP 


ENDM 


TEND 







; Define DUMP program section 

; End of table or list 

; Restore TSDUMP program section 
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SBTTL Output list for registers 



Generate list for output of register contents. 



6 
7 



nnnnnp 

W W W W w«— 

000002 
000002 

8 000002 

9 000002 

10 000002 

11 000002 

12 000002 

13 000002 

14 000002 

15 000002 

16 000002 
17 



TBEO 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



PRTREO.- <Register Conten 


ts> ; Beginning 


<R0>, SVRO 


Register 


<R1>, SVR1 


Register 1 


<R2>, SVR2 


Register 2 


<R3>, SVR3 


Register 3 


<R4>, SVR4 


Register 4 


<R5>, SVR5 


Register 5 


<SP>» DIESP 


Stack pointer 


<PC>, DIEPC 


Program counter 


<KPAR 5>, SVPAR5 


Kernal PAR 5 


<KPAR hy, SVPAR6 


Kernal PAR 6 



of print list 



End of print 
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3 
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5 000002 

6 000102 

7 000002 
S 000002 
9 000002 

10 000002 

11 000002 

12 000002 

13 000002 

14 000002 



. SBTTL Output list for TSX-Plus addresses 
Generate list for output of TSX-Plus address values. 



TBEG 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



ADDR, <TSX-Plus module addresses> 

CTSGEN >, ADGEN ; Address of TSGEN 

<TSTIO >, ADTIO i Address of TSTIO 

CTSEXEO, ADEXEC ; Address of TSEXEC 

CTSEMT >, ADEMT > Address of TSEMT 

<TSINIT>, ADINIT ; Address of TSINIT 

<TSTI0X>, ADTIOX ; Address of TSTIOX 

<TSL0CK>» ADLOCK i Address of TSLOCK 

<TSCA5H>, ADCASH ; Address of TSCASH 
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000002 
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000002 
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000002 
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13 
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16 
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25 
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32 
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33 
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34 
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35 


000002 


36 


000002 


37 


000002 


38 


000002 


39 


000002 


40 


000002 


41 


000002 


42 


000002 


43 


000002 


44 
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45 


000002 


46 


000002 


47 


000002 
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000002 
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000002 
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000002 
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000002 
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SBTTL Output list for miscellaneous fields 



i 



Generate list for output of miscellaneous fieldi 



TBEG 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TFWn 



VMISC, ^Miscellaneous va 
<CLKPC>, CLKPC 
<CLKP5>, CLKPS 
<CSHBAS>, CSHBAS 
<CURFRK> J CURFRK 
<CXBJOB>, CXBJOB, <*BYTE> 
<CCXBOWN>, CXBOWN, <*BYTE> 
<DOSCHD>, DOSCHD, <*BYTE> 
<EXCJOB>, EXCJOB, <*BYTE> 
<FREIOG>,FREIOG 
<FRKCQE>, FRKCQE 
<CFREFRK>, FREFRK 
<FRKPRI>, FRKPRI, <*BYTE> 
<INBSY>> INBSY, <*BYTE> 
<INTLVL>, INTLVL, <*BYTE> 
<INTPRI>, INTPRI 
<IOABFL>> IOABFL 
<LOKBAS>, LOKBAS 
<LOKSWP>, LOKSWP 
<MAPU5R>, MAPUSR, <*BYTE> 
<MEM256>> MEM256, <*BYTE> 
<MEMSWP>, MEMSWP 
CMIOFLO, MIOFLG, <*BYTE> 
<MSGBAS>, MSOBAS 
<NMFREQ>> NMFREQ 
<NUMON>, NUMON, <$BYTE> 
<OUTBSY>> OUTBSY, <»BYTE> 
<PVON>, PVON, <*BYTE> 
<SPDJOB>, SPDJOB, <*BYTE> 

<sr3flg>, sr3flg, <*byte> 
<stklvl>, stklvl, <*byte> 
<tiobas>, t i ob as 
<toton>, toton, <*byte> 
<ubusmp>> ubusmp, <*byte> 
cuiocnt:^ uiocnt 

<USP>, USP 
<USRBAS>> USRBAS 
<USRJOB>, USR JOB, <*BYTE> 
<VBUSTP>, VBUSTP, <*BYTE> 
<VCSHNB>> VCSHNB 
<VMXSF>, VMXSF 
<VMXSFC>, VMXSFC 
<VNGR>, VNGR 
<VNUMDC>, VNUMDC 
<VPLAS>, VPLAS 
<VSWPFL>> VSWPFL, <*BYTE> 
">• VSWPSL 

:*BYTE> 



lues> ; Beginning of print list 
Clock interrupted PC (for PM) 
Clock interrupted PS (for PM) 
Physical add of TSCASH 
Address of current FORK call 
Context block job contents 
Context block job owner 
Do scheduling flag 
Exclusive system job owner 
Free I/O queue head 
Fork queue head 
Free fork queue head 
Fork priority 
Inswap flag 
Interrupt level 
Interrupt priority 

I/O abort flag (0=rundown; l=abort) 
PAR base of TSLOCK 
Job requiring memory lock 
Job currently mapped 
Extended memory flag 
Job requiring memory expansion 
I/O mapping flag 
PAR base of TSMSG 

Number of free user's queue elements 
Num of hardware lines on 
Outswap flag 

Num of primary and virtual lines on 
SPD job owner 

Extended memory management reg. flag 
Stack level 

Physical add of TSTIOX 
Num of total lines on 
Unibus map flag 
User I/O count 
User stack pointer 
PAR base of TSUSR 
USR job owner 

Bus type (0 = UNIBUS; 1 » QBUS) 
Num of generalized cache blocks 
Max num of shared files 
Max num of shared file channels 
Num of global PLAS regions 
Num of shared data cache blocks 
Num of PLAS blocks allocated 
Swap flag (0 - swap; 1 = noswap) 
Num of swap file jobs allocated 
Unexpected interrupt (1 - abort) 
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14 
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15 


000002 
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19 
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20 


000002 


21 


000002 


22 


000002 


23 
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24 


000002 


25 


000002 


26 


000002 


27 


000002 


28 


000002 


29 


000002 


30 


000002 


31 


000002 


32 


000002 


33 


000002 


34 
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35 
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37 
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38 
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39 


000002 


40 


000002 


41 


000002 


42 


000002 
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SBTTL Output list for line status tables 



Generate table for output of line status. 



TBEG 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



JLIN, <Job Status Tables>, 
<LSW>, LSW, <*R JUST ! *ZRPAD> 



*ZRPAD> 
*ZRPAD> 
*ZRPAD> 
*ZRPAD> 
*ZRPAD> 
*ZRPAD> 
*ZRPAD> 



<LSW2>, LSW2, <*RJUST 

<LSW3>, LSW3, <*RJUST 

<LSW4>, LSW4, <*RJUST 

<LSW5>, LSW5, <*RJUST 

<LSW6>, LSW6, <*RJUST 

<LSW7>, LSW7, <*RJUST 

<LSWS>, LSW3, <*R JUST 

<LSW9>, LSW9, <*RJUST 

<LSW10>, LSWIOi <*R JUST ! *ZRPAD> 

<LSWli>, LSW11; <*R JUST ! *ZRPAD> 

<LSTATE>> LSTATE, OSRJUST ! *ZRPAD 

<LBASE>, LBASE> <*R JUST ! *ZRPAD> 

<LPARBS>, LPARBS, <*R JUST 

<LNBLKS>, LNBLKS, <*RJUST 

<LNSBLK>, LNSBLK, <*RJUST 

<LI0CNT>, LIOCNT, <*RJUST 

<LINCNT>> LINCNT, <*RJUST 

<LACTIV>, LACTIV, <*RJUST 

<LPRG1>, LPRG1, <*RAD50> 



<Job>, <*BYTE ! $DEC>, 1, 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job status word 
Job state 
Base 512-block 



NLINES 



> 
*ZRPAD> 
*ZRPAD> 
*ZRPAD> 
*ZRPAD> 
*ZRPAD> 



<LPRG2>> LPRG2, <*RAD50: 



2 

3 

4 

5 

6 

7 

S 

9 

iO 

11 



nun) of context 



<LCDTYP>, LCDTYP, <*RJUST 
<LNPRIM>, LNPRIM, <*RJUST 
<LPARNT>, LPARNT, <*RJUST 
<LBSPRI>» LBSPRI, <*RJUST 
<LCLUNT>, LCLUNT, <*RJUST 
<LMEMIN>, LMEMIN, <*RJUST 
<LI0HLD>> LIOHLD, OURJUST 
<LAFSIZ>, LAFSIZ, <*RJUST 
<LFWLIM>, LFWLIM, <*RJUST 
<LCMPL>, LCMPL, <*RJUST ! *ZRPAD> 
<LSWPBK>* LSWPBK, <*RJUST !*ZRPAD> 
<LJSW>, LJSW, <*R JUST ! *ZRPAD> 
<LEMTPC>, LEMTPC, <*RJUST ! *ZRPAD> 
<L8PN0>> LSPND, <*R JUST ! *ZRPAD> 



Base PAR of program 
Num of mem pages for job 
Num of mem pages for PLAS 
Active I/O counter 
Input chars pending 
Activ chars pending 
Program name 
Program name 
*ZRPAD>> 1, TNHL ; Hardware line 
*ZRPAD>, 1* NPL+NDLj Primary line 
$ZRPAD> i Parent number index 
*ZRPAD> ; Job base priority 
*ZRPAD>, 1. NPL+NSL+NDL+NIOL; CL 



status 
index 



unit 



*ZRPAD> 
*ZRPAD> 
*ZRPAD> 
*ZRPAD> 



Num mem pages require 
I/O hold for swap 
Field width activate 
Field limit activate 
Pending completion 
Swap file block num 
Job status word 
Last EMT PC address 
Job . SPND counter 



<LXCL>, LXCL, <*R JUST! *ZRPAD>, 1, NPL; Cross connect CL unit index 



I 



> 



< 

f 
I 

< 
i 
i 
i 
i 
i 
I 
f 
< 
t 
« 



1 
< 
1 
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1 

IS. 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 



. SBTTL Output list for device handler status 
Generate table for output of device handler status. 



000002 
000002 
000002 
000002 
000002 
000002 
000002 
2 

000002 



TBEG DHAN, <Device Handler Tables: 

PVAL <PNAME>> PNAME, <*RAD50> 

PVAL <HANENT>, HANENT, <*RJUST> 

PVAL <HANPAR>, HANPAR, <*RJUST> 

PVAL <HANSIZ>, HANSIZ,<*RJUST> 

PVAL <HANI0C>, HANIOC, <*RJUST> 

PVAL <DVFLAG>> DVFLAG, <*R JUST ! *ZRPAD> 

PVAL <DVSTAT>, DVSTAT, <*R JUST ! *ZRPAD> 

PVAL <DEVSIZ>, DEVSIZ, <*RJUST i *ZRPAD> 

TEND 



<0f f set>, <*BYTE!*DEC>, 0, MAXDEV-1 
; Program name 
> Handler entry point 
; Handler PAR 
»Handler size 
/Handler I/O count 
; Device handler flags 
; Device status flags 
.Device size <256 word blks) 






f 

i 

f 
i 

< 

i 
I 

t 
< 



i 
i 
4 
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I 1 



Generate list for output of current FORK in progress. 



3 




4 


000002 


5 


001550 


6 


000002 


7 


000002 


8 


000002 


9 


000002 


10 


000002 


11 


000002 


12 


000002 




000002 


14 


000002 


15 


000002 



TBEG 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
PVAL 
TEND 



FRKREQ, <Current FORK request."* 
<Address>, FQ*RTN 
CSaved R5>, FG*R5 

R4>, FQ*R4 

R3>, FQ*R3 

R2>, FG*R2 

R1>>FQ*R1 

i FORK block add>, FQSUFB 
<Saved KPAR5>> FQ*PA5 
<Saved KPAR6>, FG*PA£ 
<FORK Priority."*, FG*PRI, <*BYTE> 



<Saved 
<Saved 
<Saved 
<Saved 
<CUser'< 



Address of FORK routine 
Saved value of R5 



Saved value of 
Saved value of 
Saved value of 
Saved value of 
User specified 
Saved value of 
Saved value of 
FORK priority 



R4 

R3 

R2 

Rl 

FORK block 

KPAR5 

KPAR6 



add 



t 
i 



i 

i 



t 

I 

f 
< 

< 

c 
I 
i 

4 
< 
C 
I 
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4 




5 




6 


000002 


7 


001650 


8 


000002 


9 


000002 


10 


000002 


11 


000002 


12 


000002 


13 


000002 


14 


000002 


15 


000002 


16 


000002 


17 


000002 


IS 


000002 


19 


000002 



. SBTTL Output list for job context information 
Generate list for output of job context information. 



TBEG 


VJCB, 


<Job context informat 


ion>; 1 


PVAL 


<URO>, 


URO 




PVAL 


<CUREMT>, CUREMT 




PVAL 


<EMTBLK+0 >, EMTBLK, <«BYTE> 




PRVAL 


< 


+ 1 >, EMTFUN, <*BYTE> 




PRVAL 


< 


+2 >, EMTBLK+2 




PRVAL 


< 


+4 >>EMTBLK+4 




PRVAL 


<I 


+6 >, EMTBLK+6 




PRVAL 


< 


+10>, EMTBLK+10 




PRVAL 


< 


+12>, EMTBLK+12 




PRVAL 


<z 


-H4>, EMTBLK+14 




PRVAL 


■c 


+16>, EMTBLK+16 




PVAL 


<CHNADR>, CHNADR 




TEND 









Beginning of print list 
User rO return information 
Current emt 
EMT channel number 
EMT function code 
EMT argument block 
EMT argument block 
EMT argument block 
EMT argument block 
EMT argument block 
EMT argument block 
EMT argument block 
Channel address 



f 

« 
f 



i 

i 

€ 

( 
( 
i 
I 
t 



( 

< 

f 

i 

i 
i 

> * 

»« 
l< 

« 
( 
i 
i 

t 
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1 






3 






4 






5 






6 






7 




000015 


S 




000012 


9 




000021 


10 




000023 


11 




000055 


12 




000014 


13 






14 






15 






16 






17 


000002 


000000 


18 


000004 


000000 


19 


000006 


000000 


20 


000010 


000000 


21 


000012 


000000 


22 


000014 


000000 


23 




000016' 


24 


000016 


000000 


25 


000020 


000000 


26 






27 






28 






29 


000022 


000000 


30 


000024 


000000 


31 


000026 


000000 


32 


000030 


000000 


33 


000032 


000000 


34 


000034 


000000 


35 


000036 


000000 


36 


000040 


000000 


37 






38 






39 






40 






41 






42 


000042 


000000 


43 


000044 


000000 


44 


000046 


000000 


45 


000050 


000000 


46 


000052 


000000 


47 


000054 


000000 


48 


000056 


000000 


49 






50 






51 






52 


000060 




53 


000112 




54 


000144 




55 


000176 




56 


000230 




57 


000262 









. SBTTL 


Data areas 


i Internal st< 


jrage. 


i Assi 


gnments. 




t 

CR 


s 


15 


LF 


= 


12 


CTRLQ 


= 


21 


CTRLS 


— 


23 


DASH 


= 


' — 


NCOL 


— 


12. 


> Internal stack and regi 


i 

SVRO 




. WORD 





SVR1 




. WORD 





SVR2 




. WORD 





SVR3 




. WORD 





SVR4 




. WORD 





SVR5 




. WORD 





SVREG 


= 




SVPAR5: 


. WORD 





SVPAf 


*6: 


. WORD 






Root module addresses. 



ADGEN: 


. WORD 





ADTIO: 


. WORD 





ADEXEC 


. WORD 





ADEMT: 


. WORD 





ADINIT 


. WORD 





ADTIOX 


. WORD 





ADLOCK 


. WORD 





ADCASH 


. WORD 





> Mis 


:el laneous 


; Wor 


i bounded 


s 


* 
TBUF: 


. WORD 





TCSR: 


. WORD 





RBUF: 


. WORD 





RCSR: 


. WORD 





COL: 


. WORD 





SAVKP6 


. WORD 





EMTFUN 


. WORD 






; Carriage return 

; Line feed 

; Control-Q 

> Control-S 

; Dash 

> Number of columns for table output 



contents. 



■> Saved registers <r5 to rO) 
j Past saved registers 
; Saved kernel PAR 5 
; Saved kernel PAR 6 



Address 
Address 
Address 
Address 
Address 
Address 
Address 
Address 



of TSGEN 
of TSTIO 
of TSEXEC 
of TSEMT 
Of TSINIT 
of TSTIOX 
of TSLOCK 
of TSCASH 



; Transmit 
; Transmit 
; Receiver 
; Receiver 



buffer 
CSR 

buffer 
CSR 



/Current column position 
i Saved KPAR6 for remapping 
> EMT function code 



Format tables for columnar output. 



TSCOL 


. BLKW 


NCOL+1 


TECOL 


. BLKW 


NCQL+1 


TSINX 


. BLKW 


NCOL+1 


TEINX 


. BLKW 


NCOL+1 


TATT: 


. BLKW 


NCOL+1 


TADR: 


. BLKW 


NCOL+1 



; Starting column on table output 
j Ending column on table output 
; Starting index for column 
.Ending index for column 
; Attributes of table 
i Base address of table 



i 
i 



\ 
( 
< 
< 

i 
t 
i 
t 
c 

i 
i 



I « 



t 
« 

i 
i 
i 
i 

f 
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59 
60 
61 000314 
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037266 023112 050572 
004322 050601 040726 



000330 
000336 

62 

63 

64 

65 000344 

66 

67 

68 

69 

70 000345 

71 000363 

72 000401 

73 000413 

74 000431 

75 000435 

76 000443 

77 000445 

78 000450 

79 000501 
SO 000512 

81 000526 

82 000534 

83 000553 

84 000557 

85 000605 

86 000625 

87 000640 

88 000666 
89 

90 



040724 
057114 



021 



101 
123 
117 
104 
040 
040 
014 
015 
124 
123 
111 
105 
123 
040 
111 
111 
106 
123 
112 



004617 
054756 



162 
145 
166 
145 
075 
040 
200 
012 
123 
171 
156 
115 
164 
057 
156 
156 
157 
171 
157 



073630 
014713 



147 
147 
145 
166 
040 
040 

200 
130 
163 
164 
124 
141 
040 
166 
164 
162 
163 
142 



i Data. 
MONTH: . RAD50 



/JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC/ 



i Byte 

i 

XFLG: 

i 

> Output strings. 



bounded storage. 
. BYTE CTRLQ 



; XON/XOFF flag 



TXARG 

TXSEG 

TXOID 

TXDEV 

EQSTR 

SPSTR 

FF: 

CRLF: 

OVLREG 

STKSS: 

STKINT 

STKEMT 

STKCNT 

STKDLM 

INVSTK 

INTLEV 

FRKLEV 

STKOVR 

CUR JOB 



is 

200> 



NLIST BEX 

ASCII /Arg. value 

ASCII /Seg. value = /< 

ASCII /Overlay: /<200> 

ASCII /Device name: /<200> 

ASCII / = /<200> 

ASCII / /<200> 

BYTE 14, 200 > Form feed 

BYTE CR, LF, 200 J Carriage return 

ASCIZ /TSX-Plus overlay regions/ 

ASCIZ /System /<200> 

ASCIZ /Interrupt /<200> 

ASCIZ /EMT /<200> 

ASCIZ /Stack Contents/ 

ASCII \ / \<200> 

ASCIZ /Invalid stack pointer/ 

ASCIZ /Interrupt Level/ 

ASCIZ /Fork Level/ 

ASCIZ /System stack overflow/ 

ASCII /Job executing at time of dump/<200> 

LIST BEX 

EVEN 



/ line feed 



I 
f 
« 

i 
i 

i 
t 
t 

i 
i 

« 
f 
I 

( 

( 
i 
t 

i 
i 



TSDUMP — TSX-Plus crash dump 
DODUMP — Dump entry point 



i 

c 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 

27 000724 
28 
29 
30 
31 

32 000724 
33 

34 000732 

35 000736 

36 000742 

37 000744 

38 000746 

39 000752 

40 000756 

41 000764 

42 000770 

43 000774 

44 000776 

45 001000 

46 001004 

47 001010 
48 

49 
50 
51 
52 
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001016 
001024 

53 001032 

54 001036 

55 001042 

56 001044 
57 



013705 
042705 
005015 
103411 
010537 
010537 
062737 
1 1 7700 
062705 
005015 
103457 
010537 
010537 
062737 



013737 
013737 
012705 
012700 
012645 
077002 



SBTTL DODUMP 



Dump entry point 



is entered from TSEXEC with the 



TSDUMP entry point. TSDUMP 
following known values: 

DMPTXT «» Asciz text of die message 

DMPOVL = RadSO overlay name (or zero) 

DMPHND = RadSO handler name (or zero) 

DIEMSG = Address of die message 

DIEARG = Argument of die message 

DIESP = Original stack pointer at time of crash 

DIEPC = Program counter of DIE call 

TRPAR5 = PAR 5 value at trap 

SP = All registers - RO, Rl, R2, R3, R4, R5 

A non-interrupt output routine is used to display information to 
an XON/XOFF device or a parallel port printer. The following 
information is output: 

Registers (RO through R5) 

SP (stack pointer) 

PC (program counter from error) 

PSW 

Stack contents 

Miscellaneous data cells 

Line definition tables 

Device definition tables 



DODUMP : 



Disable interrupt and locate the dump device registers. 



012737 001140' 000004 



OOOOOOG 
000007 



000050 
000046 
000002 
177056 
000004 



000046 ' 



1*: 



000044 ' 
000042 ' 
000002 000042 



OOOOOOG 000020 
OOOOOOG 000016 
000016' 
000006 



Save 



DISABL 




; Disab le al 


MOV 


#DMPTRP, @#4 


, Capture th 


MOV 


#340, @#6 


-Retain dis 


MOV 


VDMTCR, R5 


;Find the d 


BIC 


#7, R5 


i Ad just for 


CLR 


(R5) 


.Check for 


BCS 


1* 


i Br if rece 


MOV 


R5, RCSR 


Insert rec 


MOV 


R5, RBUF 


. Insert rec 


ADD 


#2, RBUF 


; offset 2 


MOVB 


SRBUF, RO 


> Throw away 


ADD 


#4, R5 


•Ajust to t 


CLR 


(R5) 


Check for 


BCS 


50* 


Br if tran 


MOV 


R5, TCSR 


Insert tra 


MOV 


R5, TBUF 


Insert tra 


ADD 


#2, TBUF 


offset 2 


values 


on entry (registers, kernel 



1 interrupts 
ie trap 4 address 
table interrupt status 

isplay device CSR 
receiver CSR 

receiver CSR 
•iver not available 
:eiver address 
:eiver buffer 

from CSR 

any pending input 
:ransmit CSR 

transmitter CSR 
ismitter not available 
insmiter CSR 
ansmiter buffer address 

from CSR 

mapping, etc. ). 



10*: 



MOV 
MOV 
MOV 
MOV 
MOV 
SOB 



@#KPAR6, SVPAR6 
TRPAR5, SVPAR5 
#SVREG, R5 
#6, RO 

(SP)+, -<R5) 
RO, 10* 



kernel PAR 6 

kernel PAR 5 

reoisters on current stack 

registers R0-R6 



; Save 

i Save 

i Save 

; Save 

; Save all the register contents 

;Continue until all register saved 



i 

i 

i 
i 



i 

t 

c 

< 

K 
t 
4 
I 
€ 
I 
i 

t 
i 
i 



TSDUMP 


— TSX- 


Plus crash dump 


DODUMP 


— Dump 


entry p 


oint 


58 








59 








60 








61 


001046 






62 


001056 


004737 


001150' 


63 


001062 


004737 


001476' 


64 


001066 


004737 


002414' 


65 


001072 


004737 


001642' 


66 


001076 


004737 


001666' 


67 


001102 


004737 


002012' 


68 


001106 


004737 


002314' 


69 


001112 


004737 


002474 ' 




uOi no 


w w !\ -l"nT 


002506 ' 


71 


001122 


004737 


002106' 


72 


001126 


004737 


002520 ' 


73 


001132 


004737 


002556' 


74 
75 
76 


001 136 


000000 










77 








78 


001140 


052766 


000001 


79 


001146 


000002 
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Output information concerning the current state. 



50*: 



PRINT 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

HALT 



#FF 

DATTIM 

ERROR 

JOB 

REG 

MODADR 

OVRADR 

MISC 

LINE 

DEVICE 

STACK 

FORK 

JCBINF 



Trap to 4 control. 

DMPTRP: BIS #1,2<SP> 
RTI 



Output form feed character 
Output date and time information 
Output error status information 
Output current job information 
Output the register contents 
Output TSX-Plus module addresses 
Output TSX-Plus overlay regions 
Output miscellaneous information 
Output line table information 
Output handler table information 
Output the stack contents 
Output fork block information 
Output job context information 
Now where to? 



i 

i 
C 

f 

« 
f 



; Buffer not found* 
i Return from trap 



set c-bit 



I 

4 

i 
i 
t 
i 



i 
I 
« 

i 
i 
I 

I 

, t 

i 

( 
» ( 
i 
t 
i 
i 
i 
i 



TSDUMP 
DATTIM - 

1 
c: 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



— TSX-Plus crash dump 
Display date and time 



MACRO V05. 05 
information 



001150 
001160 
001164 
001166 
001170 
001174 
001200 
001204 
001210 
001220 
001222 
001226 
001232 
001236 
001242 
001246 
001256 
001260 
001264 
001270 
001274 
001300 



001310 
001314 
001320 
001324 
001330 
001332 
001336 
001342 
001346 
001350 
001352 
001354 
001360 
001362 
001372 
001374 
001376 
001402 
001406 
001412 
001416 
001424 
001426 
001436 



013705 
001451 
010501 
072127 
042701 
012703 
004737 

010501 
072127 
042701 
016101 
012703 
004737 

010501 
042701 
062701 
012703 
00473/ 



013700 
013701 
013703 
004737 
010246 
012703 
012705 
004737 
010246 
077504 
010146 
012705 
000404 

012601 
005000 
071027 
062700 

062701 

077522 

000207 



OOOOOOG 



177773 
177740 
000002 
004024 



177767 
177741 
000312' 
000004 
004220 ' 



177740 
000110 
000002 
004024 



OOOOOOG 
OOOOOOG 
OOOOOOG 
001440' 

000074 
000002 
001440' 



000004 



000012 
000060 

000060 
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. SBTTL DATTIM — Display date and time information 

the current date and time information. 



lay CR/LF 
current date 
late set - skip date 

to working register 

the day (bits 5-9) 

unwanted bits 
:e decimal display 
tt the day 
iut "-" 

date to working register 

the month (bits 10-13) 

unwanted bits (word offset) 
;et into month table 
:e rad50 display 
tut three char month 
>ut "-" 

date to working register 

the year (bits 0-4) 

is relative to 1972 
:e decimal display 



> Print blank space 



Get the current time (high) 

clock ticks past midnight (low) 
Get number of clock ticks per second 
Divide clock ticks per second 
Save ticks 
Get 60. per unit 
Process seconds* minutes* hours 
Divide by 60. per unit 
Save remainder 

Continue for seconds* minutes* hours 
Save final quotient 

Loop for minutes* seconds, and ticks 
Output the time past midnight 
Output ": " 
Get the next value 
Clear high order 
Divide by ten 
Convert to ascii number 
Display high digit (quotient) 
Convert to ascii number 
Display low digit (remainder 
Continue for hours, minutes* seconds* 
Display CR/LF 






i DATTIM is ca 


lied to display the cu 


> 

DATTIM: PRINT 


#CRLF 


Disp 


MOV 


SYSDAT, R5 


Get 


BEQ 


10* 


No d 


MOV 


R5. Rl 


Copy 


ASH 


#-5*Rl 


Find 


BIC 


# A C37*R1 


Mask 


MOV 


#*DEC, R3 


Fore 


CALL 


OUTVAL 


Pr in 


TTYOUT 


#'- 


Outp 


MOV 


R5*R1 


Copy 


ASH 


#-9. *R1 


Find 


BIC 


#^C36, Rl 


Mask 


MOV 


M0NTH-2(R1 ). Rl 


Offs 


MOV 


#*RAD50* R3 


Fore 


CALL 


OUTRAD 


Outp 


TTYOUT 


#'- 


Outp 


MOV 


R5* Rl 


Copy 


BIC 


# S C37*R1 


Find 


ADD 


#72. *R1 


Year 


MOV 


#*DEC* R3 


Fore 


CALL 


OUTVAL 




PRINT 


#SPSTR 


Prin 



Output the current time. 



10*: 


MOV 


SYTIMH*RO 




MOV 


SYTIML*R1 




MOV 


TK1SEC* R3 




CALL 


DIV32 




MOV 


R2*-(SP) 




MOV 


#60. * R3 




MOV 


#2*R5 


11*: 


CALL 


DIV32 




MOV 


R2* -(SP) 




SOB 


R5, 11* 




MOV 


R 1 * - ( SP ) 




MOV 


#4, R5 




BR 


21* 


20*: 


TTYOUT 


#': 


21*: 


MOV 


(SP)+, Rl 




CLR 


RO 




DIV 


#10. ,R0 




ADD 


#'0, RO 




TTYOUT 






ADD 


#'0,R1 




TTYOUT 


Rl 




SOB 


R5, 20* 




PRINT 


#CRLF 




RETURN 





ticks 



€ 
t 
I 

C 

t 

< 

4 

i 

< 
i 



TSDUMP 


— TSX- 


■Plus crash dump 


DIV32 

1 

a. 
3 


— Divi 


de 16-bit into 






4 






5 






6 






7 






8 


001440 


010446 


9 


001442 


005002 


10 


001444 


012704 000037 


11 


001450 


006301 


12 


001452 


006100 


13 


001454 


006102 


14 


001456 


020203 


15 


001460 


103402 


16 


001462 


160302 


17 


001464 


005201 


18 


001466 


005304 


19 


001470 


100367 


20 


001472 


012604 


21 


001474 


000207 



MACRO V05. 05 
32-b i t 



Wednesday 18-Jan-89 15:25 Page 18 



SBTTL DIV32 



— Divide 16-bit into 32-bit 



DIV32 divides a 16-bit number in R3 into a 32-bit number 
in RO (high order) and Rl (lout order). The quotient is 
returned in ROi Rl and the remainder is returned in R2. 
All other registers are preserved. 



DIV32: 



1$: 



»*: 



MOV 


R4, -<SP) 


CLR 


R2 


MOV 


#31. , R4 


ASL 


Rl 


ROL 


RO 


ROL 


R2 


CMP 


R2, R3 


BLO 


2* 


SUB 


R3, R2 


INC 


Rl 


DEC 


R4 


BPL 


1* 


MOV 


<SP)+, R4 


RETURN 





Save registers 
Initialize remainder 
Initialize shift count 
Shift from low order 

through high order 

into remainder 
Check remainder for subtraction 
Br if unable to subtract 
Subtract divisor 
Increment quotient 
Check remaining bit 
Continue if more to 
Restore registers 



shift count 
consider 






i 
i 



t 
f 

« 
i 
i 
t 

< 



i 
I 

4 



TSDUMP — TSX-Plus crash dump MACRO V05. 05 
ERROR — Display error status information 



1 

3 
4 

5 001 

6 001 

7 001 

8 001 

9 001 

10 001 

11 001 

12 001 

< n nn < 
J. w> ww x 



14 
i5 
16 
17 
18 
19 
20 

21 

on 
eie: 

23 

24 
25 



476 
506 
516 
526 
532 
534 
540 
550 



001556 
001566 
001570 
001574 
001604 
001610 
001612 
001622 
001624 
001630 
001640 



013701 
005003 
004737 

013705 

001413 

010501 
004737 

013705 
001413 

010501 
004737 

000207 



000000G 
004024 ' 
O000OOG 

004220 ' 
000000G 

004220 ' 
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SBTTL ERROR — Display error status information 



ERROR is called to display the error status information. 



ERROR: 



1$: 



2*: 



PRINT 


#CRLF 




Disp 


PRINT 


#DMPTXT 


Disp 


PRINT 


#TXARG 




. Disp 


MOV 


DIEARG, 


Rl 


, Get 


CLR 


R3 




Set 


CALL 


OUTVAL 




Outp 


PRINT 


#CRLF 




Disp 


MOV 


DMPOVL, 


R5 


Get 


BEG 


1* 




Br i 


PRINT 


#TXOID 




Disp 


MOV 


R5, Rl 




Copy 


CALL 


OUTRAD 




Outp 


PRINT 


#CRLF 




Disp 


MOV 


DMPHND, 


R5 


Get 


BEG. 


2* 




Br i 


PRINT 


#TXDEV 




Disp 


MOV 


R5, Rl 




Copy 


CALL 


OUTRAD 




Outp 


PRINT 


#CRLF 




Disp 


RETURN 






Fini 



lay CR/LF 

lay fatal error message 

lay "Arg. value" 

the argument value 

display characteristics 
»ut argument value 

lay CR/LF 

the rad50 overlay identifier 

f zero* not in overlay 

lay "Overlay: " 

overlay identifier 
tut radSO overlay identifier 

lay CR/LF 

the rad50 handler identifier 

s zero/ not in handler 

lay "Device name: " 

device handler identifier 
>ut radSO handler identifier 

lay CR/LF 

shed 
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REG — Display contents of registers 

1 . SBTTL REG — Display contents of registers 

2 j 

3 ; REG is called to display the contents of the registers. 

4 ; 

5 001642 REG: PRINT #CRLF ; Display CR/LF 

6 001652 005002 CLR R2 ; Clear offset pointer 

7 001654 012705 000000' MOV #PRTREG, R5 ; Point to register output table 
S 001660 004737 002702' CALL OLIST i Output the list of values 

9 001664 000207 RETURN 



i 

i 



i 

« 
f 
i 
i 
I 
« 
I 
t 
t 

i 
I 



TSDUMP — TSX-Plus crash dump MACRO V05. 05 
MODADR — Display TSX. SAV module addresses 
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a. 
3 
4 

5 001666 

6 001666 

7 001676 

8 001704 

9 001712 

10 001720 

11 001726 

12 001734 

13 001740 

14 001744 

15 001750 

16 001754 

17 001760 

18 001764 

19 001770 

20 001774 

21 002000 

22 002004 

23 002010 



012737 
012737 
012737 
012737 
012737 
013705 
072527 
010537 
013705 
072527 
010537 
013705 
072527 
010537 
012705 
004737 
000207 



, SBTTL MODADR — Display TSX. SAV module addresses 
MODADR is called to display the module address contained in TSX. SAV. 



MODADR: 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000006 

000034 ' 

OOOOOOG 

000006 

000036 ' 

OOOOOOG 

000006 

000040 ' 

000100' 

002702 ' 



000022 ' 
000024 ' 
000026 ' 
000030 ' 
000032 ' 



PRINT #CRLF 

MOV #TSGEN, ADGEN 

MOV #TSTIO, ADTIO 

MOV #TSEXEC, ADEXEC 

MOV #TSEMT, ADEMT 

MOV #TSINIT, ADINIT 

MOV TIOBAS, R5 

ASH #6, R5 

MOV R5, ADTIOX 

MOV LOKBAS, R5 

ASH #6, R5 

MOV R5, ADLOCK 

MOV CSHBAS, R5 

ASH #6, R5 

MOV R5, ADC ASH 

MOV #ADDR, R5 

CALL OLIST 
RETURN 



Display 

Save the 

Save 

Save 

Save 

Save 

Get 



the 
the 
the 
the 
PAR 



Convert 
Get the 
Save PAR 
Convert 
Sa v e the 
Get PAR 
Convert 
Save the 
Point to 
Output a 



CR/LF 
TSGEN address 
TSTIO address 
TSEXEC address 
TSEMT address 
TSINIT address 

of TSTIOX 

to address 

TSTIOX address 
of TSLOCK 

to address 
TSLOCK address 

of TSCASH 

to address 
TSCASH address 
address output 

ddress contents 



list 



I 
i 
I 

i 
i 

I 
i 

! 
( 
I 
f 

i 
i 
4 
4 
I 
« 
( 
i 
t 
I 
i 



TSDUMP 


— TSX- 


■Plus crash dump 


OVRADR 

1 
2 
3 


— TSX- 


Plus overlay reg 








4 








5 








6 








7 








8 








9 








10 








11 


002012 






12 


002012 






13 


002022 






14 


002032 


013705 


OOOOOOG 


15 


002036 


012501 




16 


002040 


004737 


004220 ' 


17 


002044 






18 


002054 


012501 




19 


002056 


005003 




20 


002060 


004737 


004024 ' 


21 


002064 


005725 




22 


002066 






23 


002076 


02 1 527 


004537 


24 


002102 


001355 




25 


002104 


000207 
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;on 

. SBTTL OVRADR — TSX-Plus overlay region 

i ™* — ~- — — ————————————————————————— — — — — — — — ———.——————————_._—_—————_._—_. 

OVRADR is called to display the overlay region locations. 

Overlay table structure: 

OVRADD — > *OVTAB: 

. WORD <IDENTIFIER>, <KPAR5>, <WORD COUNT> 
DUMMY SUBROUTINES FOR ALL OVERLAY SEGMENTS 



Display CR/LF 

Display header 

Find the overlay table address 

Get the overlay identifier 

Display radSO id 

Display " = " 

Get the KPAR5 value 

Default octal display value 

Display KPAR5 value 



OVRADR : 








PRINT 


#CRLF 




PRINT 


#OVLREG 




MOV 


OVRADD, R5 


10*: 


MOV 


<R5)+,R1 




CALL 


OUTRAD 




PRINT 


#EQSTR 




MOV 


<R5)+, Rl 




CLR 


R3 




CALL 


OUTVAL 




TST 


<R5) + 




PRINT 


#CRLF 




CMP 


(R5), #4537 




BNE 


10* 




RETURN 





Display CR/LF 

Compare with a <JSR R5, *OVRH: 

Br if not end of the table 



( 

i 
f 

< 
i 



instruction 



f 

« 



€ 

i 
< 
i 

i 

i 

t 

( 



TSDUMP — TSX-Plus crash dump MACRO V05. 05 
STACK — Display contents of stack 



i 

i 

( 

i 
i 
< 

i « 

i 
i ( 

i 

i 

t 



> 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 002106 
i5 002116 

16 002122 

17 002124 

15 002130 
19 

20 
21 

22 002132 

23 002136 

24 002140 

25 002142 

26 002152 

27 002156 

28 002160 

29 002164 
30 

31 
32 

33 002166 

34 002172 

35 002174 

36 002176 

37 002206 

38 002212 

39 002214 

40 002220 

41 002222 

42 002226 
43 

44 
45 

46 002230 

47 002234 

48 002236 

49 002240 

50 002250 

51 002254 
52 

53 
54 

55 002256 

56 002266 

57 002272 



013705 
010504 

020527 
101013 



162704 
001465 
005404 

004737 
000207 
020537 
101013 



163704 
001447 
005404 

004737 
000207 
020527 
103416 
020527 
101013 



162704 
001426 
005404 

004737 
000207 



020527 
103403 
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SBTTL STACK — Display contents of stack 



STACK is called to display the contents of the stack. 

There are three possible stack configurations. The users system 

stack is stored in the each job's context region. This stack 

is bounded by JSTK <top of stack) and JSTKND (bottom of stack). 

The interrupt stack is used during interrupt processing and is 

allocated over TSINIT code. The address boundary of this stack 

is stored in INTSTK <top of stack) and INTSND (bottom of stack) 

located in TSEXEC. The system stack is used during scheduling 

and is located between SS (top of stack) and SSEND (bottom of stack). 



OOOOOOG 
OOOOOOG 



STACK: 



5$: 



PRINT 


#CRLF 


MOV 


DIESP, R5 


MOV 


R5, R4 


CMP 


R5, #SS 


BHI 


10* 



i Display CR/LF 
i Get the stac k 
; Copy the base 
> Below the top 
i No, SP not in 



pointer 

of the stack 

of the system stack? 

system stack 



Stack pointer is in the system stack area. 



OOOOOOG 

003036 ' 
OOOOOOG 



10*: 



SUB 


#SS» R4 


BEG 


50* 


NEG 


R4 


PRINT 


#STKSS 


CALL 


OSTACK 


RETURN 




CMP 


R5, INTSTK 


BHI 


20* 



> Calculate number of bytes to dump 
; No stack space used 
; Convert to positive byte count 
^Display "System Stack Contents" 
; Output the stack contents 

; Below the top of the interupt stack? 
>Noi SP not in interrupt stack 



Stack pointer is in the interrupt stack ares. 



OOOOOOG 

003036 ' 
OOOOOOG 
OOOOOOG 



?0*: 



SUB 


INTSTK, R4 


BEQ 


50* 


NEG 


R4 


PRINT 


#STKINT 


CALL 


OSTACK 


RETURN 




CMP 


R5, # JSTKND 


BLO 


30* 


CMP 


R5, #JSTK 


BHI 


30* 



; Calculate number of bytes to dump 

j No stack space used 

; Convert to positive byte count 

; Display "Interrupt Stack Contents" 

; Output the stack contents 

; Above the end of the context stack? 
; Invalid stack pointer 
> Below the top of the context stackT' 
j No* SP not in job context stack 



Stack pointer is in the job's context stack. 



OOOOOOG 



003036 ' 



!!*: 



SUB 


#JSTK, R4 


BEQ 


50* 


NEG 


R4 


PRINT 


#STKEMT 


CALL 


OSTACK 


RETURN 





Stack pointer is invalid. 



30*: 



OOOOOOG 



PRINT 

CMP 

BLO 



#INVSTK 
R5, #VPAR5 
40* 



/Calculate number of bytes to dump 

i No stack space used 

; Convert to positive byte count 

; Display "EMT Stack Contents" 

; Output the stack contents 



Output 40 words where SP is pointing. 

^Display "Invalid stack" 

i Check for EMT stack overflow 

; Br if below 120000, unknown stack 



< 
# 
I 

I 
t 
I 

i 

€ 

4 



I 



TSDUMP — TSX-Plus crash dump MACRO V05. 05 
STACK — Display contents of stack 



40*: 



58 


002374 


012705 


OOOOOOG 


59 


002300 


000753 




60 


002302 


012704 


000310 


61 


002306 


004737 


003036 ' 


62 


002312 


000207 





50*: 



Wednesday 


18-Jan-89 


MOV 


#VPAR6, R5 


BR 


21* 


MOV 


#100. *2- R4 


CALL 


OSTACK 


RETURN 
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; Adjust stack pointer to EMT stack 
/Dump job context stack 
; Dump 100. words from stack pointer 
; Output the stack contents 



< 
I 
I 
I 
I 



I 
t 
i 

i 
€ 

4 
t 
i 
« 

4 

i 
I 

c 



TSDUHP 
MISC 



TSX-Plus crash dump MACRO V05. 05 
Display misc system values 
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, t 



1 

n 

c 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1 *3 
x «-J 

14 
15 
16 
17 
18 
19 



. SBTTL MISC — Display misc system values 
MISC is called to display the miscellaneous system values. 



002314 
002314 
002324 
002330 
002332 
002342 
002346 
002350 
002360 
002366 
002370 
002400 
002402 
002406 
002412 



MISC: 



105737 
002404 

105737 
001404 

023727 
001404 

005002 
012705 
004737 
000207 



OOOOOOG 



0000000 



OOOOOOG 123456 



000164' 
002702 ' 



10*: 



20*: 



30*: 



PRINT #CRLF 

TSTB INTLVL 

BLT 10* 

PRINT #INTLEV 

TSTB FRKPRI 

BEQ 20* 

PRINT #FRKLEV 

CMP SSEND, #123456 

BEQ 30* 

PRINT #STKOVR 

CLR R2 

MOV #VMISC, R5 

CALL OLIST 

RETURN 



Display CR/LF 

Check interrupt level 

Br if not executing interrupt 

Display "Interrupt level" 

Check fork priority 

Br if not executing fork 

Display "Fork level" 

Check end of system stack 

Br if stack end is valid 

Display "System stack overflow" 

Clear offset pointer 

Point to miscellaneous output list 

Output the list of values 



4 
i 

i 
# 

( 
i 
I 
i 
i 

4 
I 
t 

* 

4 
< 



TSDUMP 
JOB 



TSX-Plus crash dump MACRO V05. 05 
Display info about current job 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 



002414 
002424 
002434 
002444 
002450 
002452 
002456 
002462 
002472 000207 



113701 
006201 
012703 
004737 



JOB 



JOB: 



OOOOOOG 

000002 
004024 ' 
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. SBTTL JOB — Display info about current job 

is called to display information concerning the executing job. 

; Display CR/LF 

;Disp "Job executing at time of dump" 

^Display " = " 

; Get the current operating job index 

;Divide by two for the job number 

;Force decimal display 

;Output the job number 

;DiSDlau CR/LF 



PRINT 


#CRLF 


PRINT 


#CURJOB 


PRINT 


#EQSTR 


MOVB 


C0RUSR/R1 


ASR 


Rl 


MOV 


#*DEC> R3 


CALL 


OUTVAL 


PRINT 


#CRLF 


RETURN 





i 



« 
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LINE — Display line definition tables * 

1 . SBTTL LINE — Display line definition tables 

*-» . 

e: > 

3 > LINE is called to display the generated line definition tables. 

4 i 

5 002474 012705 000622' LINE: MOV #JLIN, R5 i Point to job line table 

6 002500 004737 003112' CALL OTABLE ; Output line definition values 

7 002504 000207 RETURN 



i 

i 






f 
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DEVICE — Display device definition tables 

1 . SBTTL DEVICE — Display device definition tables 



"■» 



3 ; DEVICE is called to display the generated device definition tables, 

4 i 

5 002506 012705 001410' DEVICE: MOV #DHAN, R5 ; Point to device table < 

6 002512 004737 003112' CALL OTABLE ; Output device table values 

7 002516 000207 RETURN 

S * 



i 
i 
I 
I 
t 

€ 
4 

« 
i 



K 
« 
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FORK — Display fork block information 

. SBTTL FORK — Display fork block information 

; FORK is called to display information on the FORK list. 

FORK: 



1 

2 

3 
4 

5 002520 

6 002524 

7 002526 

8 002536 

9 002542 

10 002546 

11 002552 

12 002554 



013702 
001413 

012705 
004737 
016202 
001365 
000207 



000000G 



001546' 
002702 ' 
OOOOOOG 



1*: 



?*: 



MOV 


FRKCQE, R2 


BEG. 


2* 


PRINT 


#CRLF 


MOV 


#FRKREG, R5 


CALL 


OLIST 


MOV 


FQ*LNK<R2>> R2 


BNE 


1* 


RETURN 





; Get pointer to pending FORK requests 

i Br if no FORK pending 

; Display CR/LF 

iPoint to fork display list 

> Output the list of values 

i Get next FORK element in link list 

; Br if more to display 






i 
i 



I 

I 
i 

< 

4 

I 
€ 

« 
i 

4 

< 
i 



TSDUMP — TSX-Plus crash dump MACRO V05. 05 
JCBINF — Display job contextinf ormation 
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1 
2 

3 
4 

5 002556 

6 002562 

7 002564 

8 002570 

9 002572 

10 002576 

11 002600 

12 002606 

13 002610 

14 002616 
15 

16 
17 

18 002622 

19 002626 

20 002632 

21 002636 

22 002640 

23 002644 
24 

25 
26 

27 002650 

28 002660 

29 002664 

30 002666 

31 002672 

32 002700 



113700 
001446 
005760 
001443 
016001 
001440 
032760 
001434 
013737 
010137 



113700 
042700 
120027 
103402 
062700 
110037 



012705 
005002 
004737 
013737 
000207 



SBTTL JCBINF 



— Display job contextinf ormation 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 000054' 
OOOOOOG 



00000 1G 

177400 

OOOOOOG 

OOOOOOC 
000056 ' 



i JCBINF is 

i 

JCBINF: MOVB 
BEG 
TST 
BEG 
MOV 
BEG. 
BIT 
BEG 
MOV 
MOV 



called to display job contextinf ormation. 



CORUSR, RO 

10* 

LBASE(RO) 

10* 

LCXPAR(R0),R1 

10* 

#*INCOR,LSW<RO) 

10* 

§#KPAR6, SAVKP6 

Rl, S#KPAR6 



Get the current executing user 

Br if no user is active 

Test base page no. of job context 

Br if job context not mapped 

Get PAR relocation of job context 

Br if job context not mapped 

Is user job in memory? 

Br if not in memory 

Save current par-6 mapping 

Map to context region 



mapping 



Convert translated function code back to recognizable form. 



5*: 



MOVB 

BIC 

CMPB 

BLO 

ADD 

MOVB 



EMTBLK+1, RO 
# A C377, RO 
RO, #RT11EX 
5* 



> Get EMT function code 
iClear sign extend bits 
i Is this RT-11 or TSX function 
i Br if Rt-11 function 



#<100-RT11EX>, RO; Add table bias 

RO, EMTFUN ; Store in local cell 



Display information from job context region. 



001646' 

002702 ' 
000054 ' 



OOOOOOG 



10*: 



PRINT 

MOV 

CLR 

CALL 

MOV 

RETURN 



#CRLF 

#VJCB, R5 

R2 

OLIST 

SAVKP6, @#KPAR6 



• Display carriage return/line feed 
i Point to job context output list 
;Clear the offset pointer 
; Output job context information 
; Restore kernel par 6 mapping 



< 
# 

t 

4 
< 
C 

« 
i 
I 
i 



I 

f 

i 

i 

I 
i 

i 



I 
► 

» < 

( 
t 
t 
i 



TSDUMP 
OLIST 



1 

C 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



— TSX-Plus 

— Output a 



crash dump MACRO V05. 05 
list of information 
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002702 
002704 
002706 
002710 
002712 



002716 
002720 
002724 



002726 
002734 
002744 
002750 
002754 
002756 
002762 
002764 
002766 
002772 
002774 
002776 
003002 
003012 



003016 
003020 



003022 
003024 
003026 
003030 
003032 
003034 



010546 
010446 
010346 
010246 
010146 



\J X CL.\J\J X 

001437 



000434 



016503 
016504 
060204 
032703 
001404 
111401 
042701 
000401 
011401 
004737 

062705 



005715 
001342 



012601 
012602 
012603 
012604 
012605 
000207 



. SBTTL OLIST — Output a list of information 

Output a list of information. 

Inputs: 

R5 = points to the head of the list of output information 
R2 = pointer to the offset (index) to the data item 



OLIST: 



MOV 
MOV 
MOV 
MOV 
MOV 



R5, ~<SP) 
R4, -<SP) 
R3, -<SP> 
R2, -<SP) 
R 1 > - < SP ) 



i Save registers 



Display the list header 



10* 
30* 



000002 
000004 

000001 



177400 

004024 ' 
000006 



31* 
32* 

50* 



MOV 


<R5)+, Rl 


BEG. 


100* 


PRINT 




BR 


100* 


Display iden 


tif ier 


PRINT 


(R5) 


PRINT 


#EQSTR 


MOV 


2<R5),R3 


MOV 


4(R5), R4 


ADD 


R2, R4 


BIT 


#*BYTE, R3 


BEG 


31* 


MOVB 


@R4, Rl 


BIC 


# A C377, Rl 


BR 


32* 


MOV 


©R4, Rl 


CALL 


OUTVAL 


PRINT 


#CRLF 


ADD 


#6, R5 



i Point to list header 
iBr if not header 
;Display the list header 
iOutput entire display list 



Print identifier. 

Point to string " = " 

Get field attributes 

Get the field address 

Add field bias 

Word or byte storage element? 

Br if word element 

Get numeric value 

Clear sign extend 

Continue 

Get the numeric value 

Output the numeric value 

Point to carriage return / line 

Increment to next list entry 



i 

c 

I 

i 

< 

f 



feed 



Continue output of list elements. 



100*: 



TST 
BNE 



Finished 

MOV 
MOV 
MOV 
MOV 
MOV 



<R5) 
10* 



<SP)+, Rl 
(SP)+, R2 
<SP>+, R3 
(SP)+,R4 
<SP)+, R5 



;Point to the next list entry 
; Br if list continues 



:< Restore registers 



RETURN 



i Finished 



f 



TSDUMP 
OSTACK 



f 

i 

( 

4 
t 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 
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Display stack contents 

. SBTTL OSTACK — Display stack contents 

> ————————————————— ___—.*..———_—.-.—.———.—.———•— — _-.«.—-.—.—.——.——.. 

> Output the stack contents. 



003036 
003036 
003040 
003050 
003052 
003054 
003060 
003070 
003072 
003076 
003 106 
003110 



006204 

005003 
010501 
004737 

012501 
004737 

077417 
000207 



004024 



004024 



OSTACI 


4: 

ASR 


R4 




PRINT 


#STKCNT 




CLR 


R3 


10*: 


MOV 


R5, Rl 




CALL 


OUTVAL 




PRINT 


#STKDLM 




MOV 


(R5)+,R1 




CALL 


OUTVAL 




PRINT 


#CRLF 




SOB 


R4, 10* 




RETURN 





Convert byte count 
Display header 
Set for octal display 
Copy the stack address 
Display stack address 
Display delimiter 
Get the stack contents 
Display stack contents 
Display CR/LF 
Continue until done 



to word count 



< 
ff 

t 
I 

4 



< 

« 

i 
i 
< 
i 
I 
i 

4 

i 
i 
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SBTTL OTABLE — Output tables of information 



3 








4 








5 


003112 






6 


003112 


004737 


003150 


7 


003116 


004737 


003204 


8 


003122 


004737 


003354 


9 


003126 


004737 


003630 


10 


003132 


005715 




11 


003134 


001370 




12 


003136 






13 


003146 


000207 





i 


Outp 


ut tabl 


55 Of i 


i 

OTABLE: 










CALL 


TINIT 


1*: 




CALL 


TCLR 






CALL 


TACCR 






CALL 


TOUT 






TST 


<R5) 






BNE 


1* 






PRINT 


#CRLF 






RETURN 





; Initialize for table output 

;Clear output tables 

/Accrue table information 

^Display table values 

; Check for more table information 

> Br if more to display 

; Display CR/LF 



i 
I 

I 

t 

i 



I 



i 

i 
I 

i 
i 

i 
« 

c 
* 



i 

i 



( 

f 

i 
< 



> 



i 

€ 
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1 



3 








4 


003150 






5 


003160 






6 


003166 


005037 


000052 ' 


7 


003172 






8 

9 

10 


003202 


000207 










11 








12 


003204 


012702 


000014 


1*J 


003210 


006302 




14 


003212 


005062 


000060 ' 


15 


003216 


005062 


000112' 


16 


003222 


005062 


000144' 


17 


003226 


005062 


000176' 


18 


003232 


005062 


000230 ' 


19 


003236 


005062 


000262 ' 


20 


003242 


162702 


000002 


21 


003246 


003361 




22 


003250 


002427 




23 


003252 


005737 


000052 ' 


24 
25 
26 


003256 


001755 










27 








28 


003260 






29 


003270 






30 


003300 






31 


003310 


016201 


000112' 


32 


003314 


004737 


004342 ' 


33 


003320 






34 


003330 


000207 





Initialize for display start or Cunt iniidt ion of table format. 

; Display CR/LF 
; Display the table title 
; Clear column counter 
> Display CR/LF 



continuation of table format. 



Initilize table storage information 

Convert to word index 

Clear starting column number 

Clear ending column number 

Clear starting index number 

Clear ending index number 

Clear attribute flags 

Clear address location 

Subtract from table index 

Continue for all entries 

All entries are clear 

Check column counter 

Br if first table initialization call 



TINIT: PRINT 


#CRLF 


PRINT 


<R5) + 


CLR 


COL 


PRINT 


#CRLF 


RETURN 




» Clear table 


entries fo 


TCLR: MOV 


#NCOL, R2 


ASL 


R2 


10*: CLR 


TSC0L(R2) 


CLR 


TEC0L(R2) 


CLR 


TSINX<R2) 


CLR 


TEINXCR2) 


CLR 


TATT<R2) 


CLR 


TADR<R2) 


SUB 


#2, R2 


BGT 


10* 


BLT 


20* 


TST 


COL 


BEG. 


10* 



Table continuation display. 



>0*: 



PRINT 


#CRLF 


PRINT 


#CRLF 


PRINT 


TADR(R2) 


MOV 


TEC0L(R2>, Rl 


CALL 


BLKPAD 


PRINT 


#SPSTR 


RETURN 





; Print CR/LF 

i Print CR/LF 

i Print columnar heading 

i Find ending column information 

; Blank fill 

iPrint blanks for spacing 



i 



i 

i 

f 

i 
t 



i 
i 
t 



( 

1 


TSDUMP 


— TSX- 


Plus crash dump 


MACRO V05. 05 W 


ednesday 


lS-Jan-89 15:25 


Page 34 


OTABLE 


— Outp 


ut tables of inf 


armation 










1 


1 

o 

3 
4 










i 

A ~ ~« 


u6 inf QT 


mat ion concerning 


tabic display wh i 1 6 printing COi 


t 


003332 








> 

NXTCOL: 








5 


003332 


016562 


000004 


000262 ' 




MOV 


4<R5),TADR<R2) 


Store print string address 




6 


003340 


062705 


000012 






ADD 


#10. , R5 


Offset to the next column entry 


i 


7 


003344 










PRINT 


#SPSTR 


iPrint blanks for spacing 


8 


003354 


062702 


000002 




TACCR: 


ADD 


#2, R2 


Increment the field index 




9 


003360 


020227 


000014 






CMP 


R2, #NCOL 


End of columns all owed 7 




10 


003364 


002120 








BGE 


50* 


Br is no more column storage 


1 ( 


11 


003366 


005715 








TST 


(R5) 


See if a column entry exists 




12 


003370 


001516 








BEG 


50* 


End of table found 


1 ( 


13 


003372 


013762 


000052' 


000060 ' 




MOV 


COL, TSC0LCR2) 


Point to starting field position 


14 


003400 










PRINT 


(R5) 


Display the column heading 




15 


003406 


013762 


000052 ' 


000112' 




MOV 


COL, TEC0L<R2) 


Set ending column position 


1 1 


16 


003414 


016562 


000002 


000230 ' 




MOV 


2<R5),TATT<R2) 


Store field attributes 


17 


003422 


016500 


000006 






MOV 


6<R5),R0 


Get the starting index number 




18 


003426 


001002 








BNE 


1* 


Br if start is specified 


f 


19 


003430 


013700 


000144' 






MOV 


TSINX, RO 


Set as starting table number 


20 


003434 


010062 


000144' 




1*: 


MOV 


RO, TSINX<R2) 


Store starting index number 




21 


003440 


016500 


000010 






MOV 


10(R5),R0 


Get the ending index number 




22 


003444 


001002 








BNE 


2* 


Br is end is specified 


f 


23 


003446 


013700 


000176' 






MOV 


TEINX,RO 


Set as ending table number 




24 


003452 


010062 


000176" 




2*: 


MOV 


RO, TEINX<R2) 


Store ending index number 




25 


003456 


012700 


000006 






MOV 


#6, RO 


Assume 6 digit <word element) 


f 


26 


003462 


032762 


000001 


000230 ' 




BIT 


#*BYTE, TATT<R2) 


Check field attributes 




27 


003470 


001402 








BEG 


10* 


Br if word element 




28 


003472 


012700 


000003 






MOV 


#3, RO 


Assume 3 digit (byte element) 


< 


29 


003476 


066200 


000060 ' 




10*. 


ADD 


TSC0L<R2),R0 


Add starting position 




30 


003502 


026200 


000112' 






CMP 


TEC0L<R2),R0 


Determine if ending position 




31 


003506 


001427 








BEG 


30* 


Field is exactly enough 


r 


32 


003510 


101013 








BHI 


20* 


Br if field too long 


33 


003512 


010001 








MOV 


RO, Rl 


Copy ending column address 




34 


003514 


166201 


000112' 






SUB 


TEC0L<R2),RJ 


Find difference 


»* 


35 


003520 


010062 


000112' 






MOV 


RO, TEC0L<R2) 


Force ending column longer 


36 


003524 


1 1 2700 


000040 






MOVB 


#' ,R0 


Store blank 


\ d 


37 


003530 








11*: 


TTYOUT 




Pad output with blanks 


i 


38 


003534 


077103 








SOB 


Rl,ll* 


Continue until padded 




39 


003536 


000413 








BR 


30* 


Go on to the next entry 


| £ 


40 


003540 


166200 


000112' 




20*: 


SUB 


TEC0L<R2),R0 


Subtract the ending column 


1 ( 


41 


003544 


032762 


040000 


000230 ' 




BIT 


#*RJUST, TATT<R2) J 


Check for right justify 




42 


003552 


001403 








BEG 


21* 


Br if left justify 




43 


003554 


160062 


000060 ' 






SUB 


RO, TSC0L<R2) 


Adjust starting column position 


1 


44 


003560 


000402 








BR 


30* 






45 


003562 


060062 


000112' 




21*: 


ADD 


RO, TEC0L<R2> 


Adjust ending column position 


( 


46 


003566 


026227 


000112' 


000120 


30*: 


CMP 


TEC0L<R2), #30. 


Check for line overflow 


47 


003574 


103656 








BLO 


NXTCOL 


Continue collecting columns 




48 


003576 


005062 


000060 ' 






CLR 


TSC0L<R2) 


Clear partial entry 




49 


003602 


005062 


000112' 






CLR 


TEC0L(R2) 




t 


50 


003606 


005062 


000144' 






CLR 


TSINX<R2) 






51 


003612 


005062 


000176' 






CLR 


TEINX(R2) 






52 


003616 


005062 


000230 ' 






CLR 


TATTCR2) 




1 


53 


003622 


005062 


000262 ' 






CLR 


TADR<R2) 




c 


54 


003626 


000207 






50*: 


RETURN 







I 
I 

I 

f 
i 

i 
« 
i 
i 
f 
I 
t 

€ 

€ 

l 

i 
i 
i 
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1 
2 
3 
4 
5 
6 
7 

e 

9 
10 

n 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



003630 
003632 



003634 
003640 
003650 
003652 
003654 
003660 
003664 



003666 
003672 
003674 
003700 



003702 
003706 
003712 
003716 
003720 
003724 
003726 
003730 
003734 
003736 
003740 
003742 
003746 
003752 
003756 
003760 
003762 
003766 
003770 
003772 
003774 



020562 
002425 



004737 
016203 
016201 
060501 
032703 
001404 
111101 
042701 
000402 
060501 
011101 
004737 
062702 
016201 
001343 
005205 
020537 
101724 
012605 
012604 
000207 



Display index value and data. 



010446 
010546 



013705 000144' 

010501 

005002 

016203 000230' 

004737 004024 ' 

000430 



TOUT: 



MOV 
MOV 



R4, -<SP) 
R5, -<SP) 



; Save some registers 



Display index offset into table. 



1*: 



MOV 


TSINX,R5 


PRINT 


#CRLF 


MOV 


R5, Rl 


CLR 


R2 


MOV 


TATT<R2),R3 


CALL 


OUTVAL 


BR 


40* 



Find the starting index 

Display CR/LF 

Copy index number 

Clear column index 

Numeric attribute 

Display index value 

Enter column output stream 



Determine if the value should be displayed. 



000144' 
000176' 



004342 ' 
000230 ' 
000262 ' 

000001 



177400 



004024 ' 
000002 
000060 ' 



000176' 



10*. 


CMP 


R5,TSINX<R2) 




BLT 


40* 




CMP 


R5, TEINX<R2> 




BGT 


40* 


i 

i Outp 


ut rows 


of informatio 


i 


CALL 


BLKPAD 




MOV 


TATT<R2),R3 




MOV 


TADR<R2>> Rl 




ADD 


R5, Rl 




BIT 


#*BYTE, R3 




BEQ 


20* 




MOVB 


(R1),R1 




BIC 


# A C377, Rl 




BR 


30* 


20*: 


ADD 


R5, Rl 




MOV 


<R1),R1 


30*: 


CALL 


OUTVAL 


40*: 


ADD 


#2, R2 




MOV 


TSC0L(R2), Rl 




BNE 


10* 




INC 


R5 




CMP 


R5, TEINX 




BLOS 


1* 




MOV 


<SP>+, R5 




MOV 


<SP>+, R4 




RETURN 





Is the current index < starting 
Yes* skip entry 
Is the current index > ending 
Yes* skip entry 



Pad with spaces 

Get the attribute 

Check for existing entry 

Add the index offset (byte) 

Check for byte storage 

Br if word storage 

Get the stored byte value 

Kill sign extend bits 

Continue 

Add the index offset <word) 

Get the stored word value 

Output the value 

Increment the index 

Get the starting column 

End of table entries 

Increment the index offset 

Check for ending index 

Br if more tables to output 

Restore registers 



i 
i 
I 

I 

i 
I 

f 
€ 

t 
i 
< 

i 
< 
i 

< 



4 

i 
i 

i 



f 
i 

f 
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TSDUMP 


— TSX- 


•Plus cr 


OUTSTR 


— Outp 


ut an a 


1 






n 

Km 






3 






4 






5 






6 






7 






8 






9 


003776 




10 


003776 


112100 


11 


004000 


001404 


12 


004002 


100407 


13 


004004 




14 


004010 


000772 


15 


004012 




16 


004022 


000207 



1 dump MACRO V05. 05 
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. SBTTL OUTSTR — Output an asciz string 
OUTSTR - Output an asciz string. 

String address 



i Arg 


jments - 






Rl 


2Z 


OUTSTR 






1*: 


MOVB 


(Rl) 




BEQ 


10* 




BMI 


20* 




TTYOUT 






BR 


1* 


10*: 


PRINT 


#CRL 


20*: 


RETURN 





RO 



> Get next output byte 

i Zero* output CR / LF 

»Exit on end of output string 

/Output the character 

iContine until end of string 

/Display carriage return / line feed 



f 
i 



< 
C 
I 

< 
t 
< 

€ 

i 
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I 

i 
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f 
I 
t 

4 



i 

2 
3 
4 
5 
6 
7 
S 
9 004024 

10 004026 

11 004030 

12 004032 

13 004034 

14 004040 

15 004042 

16 004046 

17 004050 
IS 004054 

19 004060 

20 004062 

21 004066 

22 004072 

23 004076 

24 004100 

25 004104 

26 004110 

27 004112 

28 004114 

29 004116 

30 004120 
31 

32 004122 

33 004122 

34 004124 

35 004126 

36 004130 

37 004132 

38 004136 

39 004140 

40 004142 

41 004144 

42 004150 

43 004152 

44 004156 

45 004160 

46 004162 

47 004164 

48 004170 

49 004172 

50 004176 

51 004202 

52 004204 

53 004210 

54 004214 

55 004216 



010546 
010446 
010346 
010246 
032703 
001403 
004737 
000420 
012704 
032703 
001402 
012704 
012702 
032703 
001402 
012702 
004737 
012602 
012603 
012604 
012605 
000207 



005302 
002411 
005000 
071004 
062701 
010146 
010001 
001406 
004737 
1 1 2600 

000207 
005702 
001772 
032703 
001767 
1 1 2700 
032703 
001402 
1 1 2700 

077203 
000754 



000004 

004220 ' 

000010 
000002 

000012 
000006 
000001 

000003 
004122' 



000060 



004122' 



040000 

000040 
020000 

000060 



. SBTTL 

OUTVAL - Con 

Arguments - 
Rl 
R3 



OUTVAL: 



1*: 



10*: 



20*: 
30*: 



CONVAL: 



>*: 



3*: 



4*: 



MOV 

MOV 

MOV 

MOV 

BIT 

BEG 

CALL 

BR 

MOV 

BIT 

BEQ 

MOV 

MOV 

BIT 

BEQ 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

RETURN 



DEC 

BLT 

CLR 

DIV 

ADD 

MOV 

MOV 

BEG 

CALL 

MOVB 

TTYOUT 

RETURN 

TST 

BEQ 

BIT 

BEQ 

MOVB 

BIT 

BEQ 

MOVB 

TTYOUT 

SOB 

BR 



OUTVAL — Convert and print a value 
vert and output a value. 



= Numeric value 

= Display string attributes 



R5, -<SP) 
R4, -(SP> 
R3, -(SP) 
R2, -<SP) 
#*RAD50, R3 
1* 

OUTRAD 
30* 

#10, R4 
#*DEC, R3 
10* 

#10. , R4 
#6, R2 
#*BYTE, R3 
20* 
#3, R2 
CONVAL 
<SP>+, R2 
<SP>+, R3 
<SP>+, R4 
<SP>+, R5 



R2 

2* 

RO 

R4, RO 

#60, Rl 

Rl, -<SP> 

RO, Rl 

3* 

CONVAL 

<SP)+, RO 



R2 

2* 

#*RJUST, R3 

2* 

#' ,R0 

#*ZRPAD, R3 

4* 

#'0, RO 



R2, 4* 
2* 



Save registers 



Check for RADSO value 

Br if not RADSO 

Output RADSO 

Continue 

Assume octal base 

Check for decimal base 

Br if numeric display in octal 

Set for decimal base 

Assume word value 

Check for byte storage 

Br if storage is word value 

Otherwise byte value 

Convert numeric value 

Restore registers 



Say one more digit converted 

Br if all display digits converted 

Clear high order result 

Divide number by numeric base 

Convert remainder to ascii digit 

Save ascii digit on stack 

Set result register 

Br if no more digits to convert 

Call conversion for next digit 

Get the next digit to display 

Output the ascii character 

Check field output size 

No pad necessary 

Check for right justify 

Br if not right justify 

Default pad to blank 

Check for zero pad 

Br if blank pad chosen 

Change to zero pad 

Output the charater 

Continue until all ouput 

Display remaining characters 



f 
t 

« 
i 
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1 



3 








4 








5 








6 


004220 


010146 




7 


004222 


005000 




8 


004224 


071027 


003100 


9 


004230 






10 


004240 


005000 




11 


004242 


071027 


000050 


12 


004246 






13 


004256 






14 


004266 


012601 




15 


004270 


000207 




16 








17 


004272 


040 


101 




004275 


103 


104 




004300 


106 


107 




004303 


111 


112 




004306 


114 


115 




004311 


117 


120 




004314 


122 


123 




004317 


125 


126 




004322 


130 


131 




004325 


044 


056 




004330 


060 


061 




004333 


063 


064 




004336 


066 


067 




004341 


071 




18 








19 








20 








21 








22 








23 








24 








25 


004342 


112700 


000040 


26 


004346 


163701 


000052 ' 


27 


004352 


003403 




28 


004354 






29 


004360 


077103 




30 


004362 


000207 





rv 



. SBTTL OUTRAD — Convert and print a RAD50 value 

OUTRAD - Convert and output radSO data. 
Rl = Numeric radSO value 



Clear high order 
Divide for 1st byte 
Display radSO character 
Clear high order 
Divide for 2nd byte 
Display radSO character 
Display radSO character 



0123456789/ 





OUTRAD: 


MOV 


R 1 , - < SP ) 






CLR 


RO 






DIV 


#50*50, RO 






TTYOUT 


RSOCHR(RO) 






CLR 


RO 






DIV 


#50, RO 






TTYOUT 


R50CHR(R0) 






TTYOUT 


RSOCHR(Rl) 






MOV 


<SP>+, Rl 






RETURN 




102 


i 

R50CHR: 


. ASCII 


/ ABCDEFGH 


105 








110 








113 








116 








121 








124 








127 








132 








040 








062 








065 








070 









EVEN 



SBTTL BLKPAD 



Blank pad output stream 



BLKPAD - Blank pad ouput stream. 

Rl = ending column number 



BLKPAD: 



10*: 



20*: 



MOVB 

SUB 

BLE 

TTYOUT 

SOB 

RETURN 



#' , RO 
COL, Rl 
20* 

Rl, 10* 



; Initialize ouput to space 
i Figure number of blanks 
; Br if already past column 
; Display space 
; Continue 



I 

( 

i 

< 
4 
f 

I 
( 
I 

€ 

4 
i 
i 
t 

< 



TSDUMP 
OUTCHR 
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3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



23 
24 
25 
26 
27 
28 
Errors detected 



004364 
004370 
004372 
004372 
004376 
004400 
004406 
004414 
004422 
004424 
004424 
004430 
004432 
004436 
004442 
004444 
004450 
004452 
004456 
004460 
004464 



005737 
001415 

105777 
100006 
117737 
142737 
123727 
001363 

105777 
100375 
1 1 0077 
120027 
001003 
005037 
000405 
120027 
103402 
005237 
000207 

000001 




000050 ' 



173452 

173442 
177600 

000344 ' 



173414 

173404 
000015 

000052 ' 

000040 

000052 ' 



000344 ' 
000344 ' 
000021 



OUTCHR 
RO 



SBTTL 
Ou 



OUTCHR — Output an ascii character 



tput an ascii character to a serial or parallel port. 
= character to output 



OUTCHR: 

OTERM: 
10*: 



20$: 

OPRINT: 
30*: 



40*: 



50*: 



TST 
BEG 

TSTB 
BPL 
MOVB 
BICB 

CMPB 
BNE 

TSTB 

BPL 

MOVB 

CMPB 

BNE 

CLR 

BR 

CMPB 

BLO 

INC 

RETURN 

. END 



RCSR 
OPRINT 

©RCSR 

20* 

SRBUF, XFLG 

# A C177, XFLO 

XFLG, #CTRLQ 

10* 

6TCSR 

30* 

RO, STBUF 

RO, #CR 

40* 

COL 

50* 

RO, #40 

50* 

COL 



; Check for receiver buffers 

; No receiver CSR, transmit character 

Check input port 

Br if no input pending 

Input the character 

Strip eighth bit 

Check for XON 

Br if not XON state active 

Check transmit done flag 

Wait for transmit done 

Output to transmitter 

Is character a carriage return? 

Br if not carriage return 

Clear column counter 

Finished 

Is character printable?' 

Br if not printable 

Increment column position 

Finished 



#** Assembler statistics 



Work file reads: 
Work file writes: 
Size of work file: 
Size of core pool: 
Operating system: 







9950 Words 

18176 Words 

RT-11 



< 39 Pages) 
< 71 Pages) 



Elapsed time: 00:01:18.01 

, LP: TSDUMP=DK: TSDUMP /C/N: SYM 
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*BYTE 


5-22# 


4 r\_ * r\ 
J. sj— X\J 


1 /•%— * * 

i.\J -X i 


10=12 


4 r\ 4 *-k 

1U _ 1 o 


10-17 


4 r\ 4 m 
1\J— ±0 


10-19 


4 r\ ha 


10-25 


10- 


-27 


10-30 




10-31 


10-32 


10-33 


10-34 


10-35 


10-37 


10-38 


10-42 


10-43 


10-50 


10- 


-52 


11-5 




12-5 


13-14 


14-9 


14-10 


30-29 


34-26 


35-31 


37-22 












*DEC 


5-23# 


11-5 


12-5 


17-11 


17-24 


25-10 


37-18 














*INCOR 


2-20 


29-11 
























*RAD50 


5-24# 


11-25 


11-26 


12-6 


17-18 


37-13 
















*RJUST 


5-19# 


11-6 


11-7 


11-8 


11-9 


11-10 


11-11 


11-12 


11-13 


11-14 


11- 


-15 


11-16 




11-17 


11-18 


11-19 


11-20 


11-21 


11-22 


11-23 


11-24 


11-27 


11-28 


11- 


-29 


11-30 




11-31 


11-32 


11-33 


11-34 


11-35 


11-36 


11-37 


11-38 


11-39 


11-40 


11- 


-41 


12-7 




12-8 


12-9 


12-10 


12-11 


12-12 


12-13 


34-41 


37-47 












*ZRPAD 


5-20# 


11-6 


11-7 


11-8 


11-9 


11-10 


11-11 


11-12 


11-13 


11-14 


11- 


-15 


11-16 




11-17 


11-18 


11-19 


11-20 


11-21 


11-22 


11-23 


11-24 


11-27 


11-28 


11 


-29 


11-30 




11-31 


11-32 


11-33 


11-34 


11-35 


11-36 


11-37 


11-38 


11-39 


11-40 


11- 


-41 


12-11 




12-12 


12-13 


37-50 






















ADC ASH 


9-13 


9-13 


1 5-36# 


21-20* 




















ADDR 


9~5# 


21-21 
























ADEMT 


9-9 


9-9 


1 5-32# 


21-10* 




















ADEXEC 


9-8 


9-8 


15~31# 


21-9* 




















ADGEN 


9-6 


9-6 


1 5-29# 


21-7* 




















ADINIT 


9-10 


9-10 


15-33# 


21-11* 




















ADLOCK 


9-12 


9-12 


1 5-35# 


21-17* 




















ADTIO 


9-7 


9-7 


1 5-30# 


21-8* 




















ADTIOX 


9-11 


9-11 


1 5-34# 


21-14* 




















ARG 


16-61 


16-61# 


17-5 


17-5# 


17-13 


17-13# 


17-20 


1 7-20# 


17-26 


17~26# 


17- 


-43 


17-43# 




17-48 


17-48# 


17-50 


17-50# 


17-52 


17-52# 


19-5 


19-5# 


19-6 


19-6# 


19- 


-7 


19-7# 




19-11 


19-U# 


19-14 


19-14# 


19-17 


19-17# 


19-20 


19-20# 


19-23 


19-23# 


20- 


-5 


20-5# 




21-6 


21-6# 


22-12 


22-12# 


22-13 


22-13# 


22-17 


22-17# 


22-22 


22-22# 


23- 


-14 


23-14# 




23-25 


23-25# 


23-36 


23-36# 


23-49 


23-49# 


23-55 


23-55# 


24-6 


24-6# 


24- 


-9 


24-9# 




24-12 


24-12# 


24-15 


24-1 5# 


25-5 


25-5# 


25-6 


25-6# 


25-7 


25-7# 


25- 


-12 


25-12# 




28-7 


28-7# 


29-27 


29-27# 


30-19 


30-19# 


30-24 


30-24# 


30-25 


30-25# 


30- 


-36 


30-36# 




31-7 


31-7# 


31-11 


31-11# 


31-14 


31-14# 


32-12 


32-12# 


33-4 


33-4# 


33- 


-5 , 


33-5# 




33-7 


33-7# 


33-28 


33-28# 


33-29 


33-29# 


33-30 


33-30# 


33-33 


33-33# 


34- 


-7 


34-7# 




34-14 


34~14# 


34-37 


34-37# 


35-11 


35-1 1# 


36-13 


36-13# 


36-15 


36-15# 


37- 


-43 


37-43# 




37-53 


37-53# 


38-9 


38-9# 


38-12 


38-12# 


38-13 


38-13# 


38-28 


38-28# 








ARGS 


8-5 
14-6 


8-5# 
14-6# 


9-5 


9-5# 


10-5 


10-5# 


11-5 


11 -5# 


12-5 


12~5# 


13- 


-4 


13-4# 


BLKPAD 


33-32 


35-27 


38-25# 






















CHNADR 


14-18 


14-18 
























CLKPC 


10-6 


10-6 
























CLKPS 


10-7 


10-7 
























COL 


1 5-46# 


33-6* 


JJ""cJ 


34-13 


34-15 


38 c6 


39-21* 


39-25* 












CONVAL 


37-25 


37-32# 


37-41 






















CORUSR 


2-14 


25-8 


29-5 






















CR 


15-7# 


15-77 


39-19 






















CRLF 


15-77# 


17-5 


17-52 


19-5 


19-11 


19-17 


19-23 


20-5 


21-6 


22-12 


22- 


-22 


23-14 




24-6 


25-5 


25-12 


28-7 


29-27 


30-36 


31-14 


32-12 


33-4 


33-7 


33- 


-28 


33-29 




35-11 


36-15 
























CSHBAS 


10-8 


10-8 


21-18 






















CTRLG 


15-9# 


15-65 


39-13 






















CTRLS 


15-10# 


























CUREMT 


14-8 


14-8 








.- ■ % . ;/ ; 




]*** 












CURFRK 


1 q_9 


10-9 






i ' 


















CUR JOB 


1 5-88# 


25-6 






t 






^ 












CXBJOB 


10-10 


10-10 
























CXBOWN 


10-11 


10-11 
























DASH 


15-11# 



























c 
c 

I 
i 
i 



( 

< 

I 

t 

i 
i 

t 
I 
i 
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DATTIM 16-62 i7-5# 

DEVICE 16-70 27-5# 

DEVSIZ 12-13 12-13 

DHAN 12-5# 27-5 

DIEARG 2-11 19-8 

DIEPC 2-11 8-13 8-13 

DIESP 2-11 8-12 8-12 23-15 

DIV32 17-33 17-37 18-8# 

DMPHND 2-11 19-18 

DMPOVL 2-11 19-12 

DMPTRP 16-32 16-78# 

DMPTXT 2-11 19-6 

DODUMP 2-4 16-27# 

DOSCHD 10-12 10-12 

DVFLAG 12-11 12-11 

DVSTAT 12-12 12-12 

EMTBLK 14-9 14-9 14-11 14-12 14-13 14-14 14-15 14-16 14-17 29-18 

EMTFUN 14-10 15-48# 29-23* 

EQSTR 15-74# 22-17 25-7 30-25 

ERROR 16-63 19-5# 

EXCJOB 10-13 10-13 

FF 15-76# 16-61 

FORK 16-72 28-5# 

FQ$LNK 2-21 28-10 

FG*PA5 13-12 13-12 

FG*PA6 13-13 13-13 

FG*PRI 13-14 13-14 

FQfRl 13-10 13-10 

FQ*R2 13-9 13-9 

FQ*R3 13-8 13-8 

FG*R4 13-7 13-7 

FQ*R5 13-6 13-6 

FQ*RTN 13-5 13-5 

FQSUFB 13-11 13-11 

FREFRK 10-16 10-16 

FREIOQ 10-14 10-14 

FRKCGE 10-15 10-15 28~5 

FRKLEV 15-86# 24-12 

FRKPRI 10-17 10-17 24-10 

FRKREQ 13-4# 28-8 

HANENT 12-7 12-7 

HANIOC 12-10 12-10 

HANPAR 12-8 12-8 

HANS I 2 12-9 12-9 

INBSY 10-18 10-18 

INTLEV 15-85# 24-9 

INTLVL 10-19 10-19 24-7 

INTPRI 10-20 10-20 

INTSND 2-9 

INTSTK 2-9 23-28 23-33 

INVSTK 15-84# 23-55 

IOABFL 10-21 10-21 

JCBINF 16-73 29-5# 

JLIN ll-5# 26-5 

JOB 16-64 25-5# 

JSTK 2-9 23-41 23-46 



I 
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Cross reference table (CREF V05. 05) 



JSTKND 


cL—-r 


tiv3 _ 07 




KPAR6 


2-13 


16-51 


29-13 


LACTIV 


11-24 


11-24 




LAFSIZ 


11-34 


11-34 




LBASE 


11-18 


11-18 


29-7 


LBSPRI 


11-30 


11-30 




LCDTYP 


11-27 


11-27 




LCLUNT 


11-31 


11-31 




LCMPL 


11-36 


11-36 




LCXPAR 


2-22 


29-9 




LEMTPC 


11-39 


11-39 




LF 


15-8# 


15-77 




LFWLIM 


11-35 


11-35 




LINCNT 


11-23 


il-23 




LINE 


16-69 


26-5# 




LIOCNT 


11-22 


11-22 




LIOHLD 


11-33 


11-33 




LJSW 


11-38 


11-38 




LMEMIN 


11-32 


11-32 




LNBLKS 


11-20 


11-20 




LNPRIM 


11-28 


11-28 




LNSBLK 


11-21 


11-21 




LOKBAS 


10-22 


10-22 


21-15 


LOKSWP 


10-23 


10-23 




LPARBS 


11-19 


11-19 




LPARNT 


11-29 


11-29 




LPRG1 


11-25 


11-25 




LPRG2 


11-26 


11-26 




LSPND 


11-40 


11-40 




LSTATE 


11-17 


11-17 




LSW 


11-6 


11-6 


29-11 


LSW10 


11-15 


11-15 




LSW 11 


11-16 


11-16 




LSW2 


11-7 


11-7 




LSW3 


11-8 


11-8 




LSW4 


11-9 


11-9 




LSW5 


11-10 


11-10 




LSW6 


11-11 


11-11 




LSW7 


11-12 


11-12 




LSW8 


11-13 


11-13 




LSW9 


11-14 


11-14 




LSWPBK 


11-37 


11-37 




LXCL 


11-41 


11-41 




MAPUSR 


10-24 


10-24 




MAXDEV 


2-14 


12-5 




MEM256 


10-25 


10-25 




MEMSWP 


10-26 


10-26 




MIOFLG 


10-27 


10-27 




MISC 


16-68 


24- 5# 




MODADR 


16-66 


21-5# 




MONTH 


15-61# 


17-17 




MCPDAC 

t iwuunw 


1 n—na 


10-28 




NCOL 


15-12# 


15-52 


15-53 


NDL 


2-15 


11-28 


11-31 


NIOL 


2-15 


11-31 




NLINES 


2-15 


11-5 





29-14* 29-31* 



< 
( 
I 
f 

i 

i 
I 
t 
I 
i 



m 
\ 

15-54 15-55 15-56 15-57 33-12 34-9 

I 

I 
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NMFREQ 

NPL 

NSL 

NUMDEV 

NUMON 

NXTCOL 

OLIST 

OPRINT 

OSTACK 

OTABLE 

OTERM 

OUTBSY 

OUTCHR 

OUTRAD 
OUTSTR 



OUTVAL 

OVLREG 

OVRADD 

OVRADR 

PNAME 

PRTREG 

PSW 

PVON 

R50CHR 

RBUF 

RCSR 

REO 

RT11EX 

SAVKP6 

SPDJOB 

SPSTR 

SR3FLG 

SS 

SSEND 

STACK 

STKCNT 

STKDLM 

STKEMT 

STKINT 

STKLVL 

STKOVR 

STKSS 

STRADD 



10-29 
2-15 
2-15 
2-14 
10-30 
34-4# 
20-8 
39-7 
23-26 
26-6 
39-8# 
10-31 
17-13 
38-28 
17-19 
16-61 
20-5 
24-9 
30-36 
34-7 
17-12 
15-78# 

2-19 
16-67 
12-6 
8-5# 
2-10 
10-32 
38-9 
1 5-44# 
1 5-45# 
16-65 

1 5-47# 
10-33 
1 5-75# 
10-34 
2-9 
2-9 
16-71 
1 5-82# 
1 5-83# 
15-81# 
1 5-80# 
10-35 
15-87# 
1 5-79# 
8-5 
8-11 
9-6 
9-12 
10-9 
10-15 
10-21 
10-27 
10-33 



•f yv *"*{-> 

1U-IJ7 

11-28 
11-31 



10-30 

34-47 

21-22 

39-1 5# 

23-37 

27-6 

10-31 

17-20 

39-6# 

19-16 

17-5 

21-6 

24-12 

31-7 

34-14 

17-25 

22-13 

22-14 

22-1 1# 

12-6 

20-7 

10-32 
38-12 
16-39* 
16-38* 
20- 5# 
29-20 
29-13* 
10-33 
17-26 
10-34 
23-17 
24-13 
23-14# 
31-7 
31-11 
23-49 
23-36 
10-35 
24-15 
23-25 
8-5# 
8-1 1# 
9-6# 
9-12# 
10-9# 
10-15# 
10-21# 
10-27# 
10-33# 



11-31 



11-41 



24-18 

23-50 
32-5# 



17-43 



1 t CmKL. 

17-26 
22-12 
24-15 
31-11 
35-11 
19-10 



38-13 

16-40* 

39-6 

29-22 
29-31 

33-33 

23-22 



8-6 

8-12 

9-7 

9-13 

10-10 

10-16 

10-22 

10-28 

10-34 



28-9 
23-61 

17-48 

22-16 

17-52 

22-13 

25-5 

31-14 

36-9# 

22-20 



38-1 7# 

16-41 

39-9 



34-7 



29-30 
31-5# 

17-50 

37-15 

19-5 

22-17 

25-6 

32-12 

36-15 

25-11 



39-11 



8- 


-6# 


8-7 


8- 


-12# 


8-13 


9- 


-7# 


9-8 


9- 


-13# 


10-5 


10- 


-10# 


10-11 


10- 


-16# 


10-17 


10- 


-22# 


10-23 


10- 


-28# 


10-29 


10- 


-34# 


10-35 



30-9# 



34-37 

38-6# 

19-6 

22-22 

25-7 

33-4 

30-35 



36-13 



19-7 
23-14 
25-12 
33-5 

31-10 



8-7# 


8-8 


8-13# 


8-14 


9-8# 


9-9 


10-5# 


10-6 


10-U# 


10-12 


10-17# 


10-18 


10-23# 


10-24 


10-29# 


10-30 


10-35# 


10-36 



37-43 



19-11 
23-25 
28-7 
33-7 

31-13 



37-53 



19-14 
23-36 
29-27 
33-28 

35-15 



8-8# 


8-9 


8-14# 


8-15 


9-9# 


9-10 


10-6# 


10-7 


10-12# 


10-13 


10-18# 


10-19 


10-24# 


10-25 


10-30# 


10-31 


10-36# 


10-37 



38-9 



19-17 
23-49 
30-19 
33-29 

35-38 



38— 12 



19-20 
23-55 
30-24 
33-30 

37-9# 



8-9# 


8-10 


8-15# 


9-5 


9-10# 


9-11 


10-7# 


lO-S 


10-13# 


10-14 


10-19# 


10-20 


10-25# 


10-26 


10-31* 


10-32 


10-37# 


10-38 



38-13 



19-23 
24-6 
30-25 
33-33 



8-10# 
9-5# 
9-1 1# 
10-8# 
10-14# 
10-20# 
10-26# 
10-32# 
10-38# 



( 
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10=39 


10-39# 




10»40# 


•i r\ a < 


10-41# 


10-42 


10-42# 


10-43 


10-43# 


10-44 


10-44# 




10-45 


10-45# 


10-46 


10-46# 


10-47 


10-47# 


10-48 


10-48# 


10-49 


10-49# 


10-50 


10-50# 




10-51 


10-51# 


10-52 


10-52# 


11-5 


11-5 


11-5 


11 -5# 


11 -5# 


11-6 


11 -6# 


11-7 




11 -7# 


11-8 


11 -8# 


11-9 


11 -9# 


11-10 


11-10# 


11-11 


11-11# 


11-12 


11-12# 


11-13 




U-13# 


11-14 


11-14# 


11-15 


11-15# 


11-16 


11-16# 


11-17 


11-17# 


11-18 


11-18# 


11-19 




11-19# 


11-20 


ll-20# 


11-21 


11-21# 


11-22 


ll-22# 


11-23 


1 1 -23# 


11-24 


ll-24# 


11-25 




ll-25# 


11-26 


ll-26# 


11-27 


ll-27# 


11-28 


1 1 -28# 


11-29 


ll-29# 


11-30 


ll-30# 


11-31 




11-31# 


11-32 


ll-32# 


11-33 


1 1 -33# 


11-34 


ll-34# 


11-35 


ll-35# 


11-36 


ll-36# 


11-37 




ll-37# 


11-38 


ll-38# 


11-39 


ll-39# 


11-40 


ll-40# 


11-41 


11-41# 


12-5 


12-5 


12-5 




12-5# 


12-5# 


12-6 


12-6# 


12-7 


12-7# 


12-8 


12-8# 


12-9 


12-9# 


12-10 


12-10# 




12-11 


12-11# 


12-12 


12-12# 


12-13 


12-13# 


13-4 


13-4# 


13-5 


13-5# 


13-6 


13-6# 




13-7 


13-7# 


13-8 


13-8# 


13-9 


13-9# 


13-10 


13-10# 


13 11 


13™li# 


13-12 


13-12# 




13-13 


13-13# 


13-14 


13~14# 


14-6 


14-6# 


14-7 


14-7# 


14-8 


14-8# 


14-9 


14-9# 




14-10 


14-10# 


14-11 


14-11# 


14-12 


14-12# 


14-13 


14-i3# 


14-14 


14-14# 


14-15 


14-15* 




14-16 


14-16# 


14-17 


14-17# 


14-18 


14-18# 














SVPAR5 


8-14 


8-14 


15-24# 


16-52* 


















SVPAR6 


8-15 


8-15 


15-25# 


16-51* 


















SVRO 


8-6 


8-6 


15-17# 




















SVR1 


8-7 


8-7 


15-18# 




















SVR2 


8-8 


8-8 


15-19# 




















SVR3 


8-9 


8-9 


1 5-20# 




















SVR4 


8-10 


8-10 


15-21# 




















SVR5 


8-11 


8-11 


1 5-22# 




















SVREG 


15-23# 


16-53 






















SYSDAT 


2-16 


17-6 






















SYTIMH 


2-17 


17-30 






















SYTIML 


2-17 


17-31 






















TACCR 


32-8 


34-8# 






















TADR 


15-57# 


33-19* 


33-30 


34-5* 


34-53* 


35-29 














TATT 


15-56# 


33-18* 


34-16* 


34-26 


34-41 


34-52* 


35-14 


35-28 










TBUF 


1 5-42# 


16-46* 


16-47* 


39-18* 


















TCLR 


32-7 


33-12# 






















TCSR 


1 5-43# 


16-45* 


39-16 




















TEC CU- 


15-53# 


33-15* 


33-31 


34-15* 


34-30 


34-34 


34-35* 


34-40 


34-45* 


34-46 


34-49* 




TE I NX 


15-55# 


33-17* 


34-23 


34-24* 


34-51* 


35-22 


35-43 












TENABL 


8-5# 


8-6 


8-7 


8-8 


8-9 


8-10 


8-11 


8-12 


8-13 


8-14 


8-15 


9-5# 




9-6 


9-7 


9-8 


9-9 


9-10 


9-11 


9-12 


9-13 


10-5# 


10-6 


10-7 


10-8 




10-9 


10-10 


10-11 


10-12 


10-13 


10-14 


10-15 


10-16 


10-17 


10-18 


10-19 


10-20 




10-21 


10-22 


10-23 


10-24 


10-25 


10-26 


10-27 


10-28 


10-29 


10-30 


10-31 


10-32 




10-33 


10-34 


10-35 


10-36 


10-37 


10-38 


10-39 


10-40 


10-41 


10-42 


10-43 


10-44 




10-45 


10-46 


10-47 


10-48 


10-49 


10-50 


10-51 


10-52 


11 -5# 


11-6 


11-7 


11-8 




11-9 


11-10 


11-11 


11-12 


11-13 


11-14 


11-15 


11-16 


11-17 


11-18 


11-19 


11-20 




11-21 


11-22 


11-23 


11-24 


11-25 


11-26 


11-27 


11-28 


11-29 


11-30 


11-31 


11-32 




11-33 


11-34 


11-35 


11-36 


11-37 


11-38 


11-39 


11-40 


11-41 


12-5# 


12-6 


12-7 




12-8 


12-9 


12-10 


12-11 


12-12 


12-13 


13-4# 


13-5 


13-6 


13-7 


13-8 


13-9 




13-10 


13-11 


13-12 


13-13 


13-14 


14-6# 


14-7 


14-8 


14-9 


14-10 


14-11 


14-12 




14-13 


14-14 


14-15 


14-16 


14-17 


14-18 














TINIT 


32-6 


33-4# 






















T I OB AS 


10-36 


10-36 


21-12 




















TK1SEC 


2-18 


17-32 






















TIMHL 


2-15 


11-27 






















TOTON 


10-37 


10-37 






















TOUT 


32-9 


35-5# 






















TRPAR5 


2-13 


16-52 






















TSCOL 


1 5-52# 


33-14* 


34-13* 


34-29 


34-43* 


34-48* 


35-40 












TSEMT 


2-12 


21-10 
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TSEXEC 


2-12 


21-9 




TSGEN 


2-12 


21-7 




TSINIT 


2-12 


21-11 




TSINX 


1 5-54# 


33-16* 


34-19 


TSTIO 


2-12 


21-8 




TXARG 


1 5-70# 


19-7 




TXDEV 


1 5-73# 


19-20 




TXOID 


15-72# 


19-14 




TXSEO 


15-71# 






UBUSMP 


10-38 


10-38 




UIOCNT 


10-39 


10-39 




URO 


14-7 


14-7 




USP 


10-40 


10-40 




USRBAS 


10-41 


10-41 




USRJOB 


10-42 


10-42 




VBUSTP 


10-43 


10-43 




VCSHNB 


10-44 


10-44 




VDMTCR 


2-10 


16-34 




VJCB 


14-6# 


29-28 




VMISC 


10-5# 


24-17 




VMXSF 


10-45 


10-45 




VMXSFC 


10-46 


10-46 




VNGR 


10-47 


10-47 




VNUMDC 


10-48 


10-48 




VPAR5 


2-13 


23-56 




VPAR6 


2-13 


23-58 




VPLAS 


10-49 


10-49 




VSWPFL 


10-50 


10-50 




VSWPSL 


10-51 


10-51 




VUXIFL 


10-52 


10-52 




XFLG 


15-65# 


39-11* 


39-12* 



39-13 
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DISABL 


3-7# 






PRINT 


3-27# 


16-61 






19-23 


20-5 






24-6 


24-9 






30-25 


30-36 






33-33 


34-7 




PRVAL 


6-5# 


14-10 




PVAL 


5~26# 


8-6 






9-7 


9-8 






10-11 


10-12 






10-23 


10-24 






10-35 


10-36 






10-47 


10-48 






li-12 


11-13 






11-24 


11-25 






11-36 


11-37 






12-12 


12-13 






14-7 


14-8 




STKDEF 


3-17# 






TBEG 


4-10# 


8-5 




TEND 


7-5# 


8-16 




TTYOUT 


3-39# 


17-13 






38-13 


38-28 
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17-5 
21-6 
24-12 
31-7 
34-14 
14-11 
8-7 
9-9 
10-13 
10-25 
10-37 
10-49 
11-14 
11-26 
11-38 
13-5 
14-9 

9-5 
9-14 
17-20 



17-26 
22-12 
24-15 
31-11 
35-11 
14-12 
8-8 
9-10 
10-14 
10-26 
10-38 
10-50 
li-15 
11-27 
11-39 
13-6 
14-18 

10-5 

10-53 

17-43 



17-52 
22-13 
25-5 
31-14 
36-15 
14-13 
8-9 
9-11 
10-15 
10-27 
10-39 
10-51 
11-16 
11-28 
11-40 
13-7 



11-5 

11-42 

17-48 



19-5 
22-17 
25-6 
32-12 

14-14 
8-10 
9-12 
10-16 
10-28 
10-40 
10-52 
11-17 
11-29 
11-41 
13-8 



12-5 

12-14 

17-50 



19-6 
22-22 
25-7 
33-4 

14-15 
8-11 
9-13 
10-17 
10-29 
10 41 
11-6 
11-18 
11-30 
12—6 
13-9 



13-4 

13-15 

34-37 



19-7 
23-14 
25-12 
33-5 

14-16 
8-12 
10-6 
10-18 
10-30 
10-42 
11-7 
11-19 
11-31 
12-7 
13-10 



14-6 

14-19 

36-13 



19-11 
23-25 
28-7 
33-7 

14-17 
8-13 
10-7 
10-19 
10-31 
10-43 
11-8 
11-20 
11-32 
12-8 
13-11 



37-43 



19-14 
23-36 
29-27 
33-28 



8-14 
10-8 
10-20 
10-32 
10-44 
11-9 
11-21 
11-33 
12-9 
13-12 



37-53 



19-17 
23-49 
30-19 
33-29 



8-15 
10-9 
10-21 
10-33 
10-45 
11-10 
11-22 
11-34 
12-10 
13-13 



38-9 



19-20 
23-55 
30-24 
33-30 



9-6 
10-10 
10-22 
10-34 
10-46 
11-11 
11-23 
11-35 
12-11 
13-14 



38-12 
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